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BON DE COMMANDE i 

Chèque 1 
Libellez vos chèques à l'ordre de Micro-Application. 

Nom, Prénom . 

Adresse . . . 



m 



DDDD □□□□□□□□□ 

Date et signature 



CB date d expiration: 



+ 2D F de (rais d'envoi 

ou 40 F pour envoi recommonde. 

Port gratuit pouf toute commande supérieure â 250 F. 



EMTO 



DU JAMAIS VU ! 

9 logiciels de qualité pour 6 
francs, voilà qui nous met le 
prix de chaque programme à 
66 centimes... Qui dif mieux ? 
Et pas n'importe quels 
programmes : 3 jeux dont 
Runaway qui vous procurera 
les mêmes frissons que le 
célèbre iode Runner qui 
occupait le sommet des hit- 
parades Apple et Commodore 
pendant plusieurs mois. Puis 3 
utilitaires dont un super 
redéfinisseur de caractères et 
enfin 3 programmes éducatifs 
très bien pensés. Et le tout 
avec le label de qualité CPC 
unanimement reconnu. Voilà 
de quoi satisfaire la 
gourmandise de votre 
AMSTRAD. 
Bonne programmation à fous. 

La Rédaction 
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RUNAWAY 

Vous connaissez Iode Runner 

sur APPLE II ? Non, quel 

manque de culture, mais je ne 

vous en veux pas trop. 

D'ailleurs, ce programme 

n'existait pas pour AMSTRAD 

avant l'arrivée de 

RUNAWAY. 
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CASE BRIQUE 

Si vous aimez les jeux de 
réflexion, Case Brique va vous 

séduire. L'ordinateur vous 
poussera dans vos derniers 
retranchements intellectuels. 

Rassurez-vous, il suffit de 
savoir compter jusqu'à trois. 
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DOLLARS & SNAFF 

Un château, un monstre, des 

sous, tout pour faire un grand 

jeu. Vos réflexes seront mis à 

rude épreuve. 
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ABC 

Youpi ! C'est la rentrée, il est 

temps d'apprendre à écrire 

avec ce superbe logiciel 

éducatif. 
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LECTHEME 

Ce programme éducatif 
permet à l'enfant d'associer 
des mots à un thème. Réflexes 
et réflexion seront nécessaires. 
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MULT1PLY 

Vous voulez connaître votre 

niveau en calcul, essayez donc 

cet éducatif. Il vous aétaillera 

vos opérations. Il jugera votre 

niveau, et vous pourrez 

apprécier vos progrès. 



U#* 
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REFONT 1 

L'AMSTRAD ne possède pas 
les sprites d'origine comme 
d'autres machines. Refont 2 
corrige cet oubli, mais il fait 

plus que cela, c'est également 
un utilitaire parfait qui vous 

permettra de fignoler vos jeux. 
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SCRIBE 

Si la maîtrise d'un gros 
traitement de texte vous 
rebute, pensez à Scribe I Ce 
logiciel complet regorge de 
facilités qui vous simplifieront 
l'usage de votre imprimante. 

33 



MASQUE DE SAISIE 

Cet utilitaire s 'intégrera 
parfaitement dans vos propres 

réalisations pour faciliter 
l'introduction de vos données. 
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CPC est une revue mensuelle totalement indé- 
pendante d'AMSTRAD (GB) et d'AMSTRAD 
FRANCE. 
Commission paritaire en cours 

Les articles et programmes que nous publions 
dans ce numéro bénéficient pour une grande part 
du droit d'auteur. De ce fait, ils ne peuvent être 
reproduits, imités, contrefaits, même partielle- 
ment sans l'autorisation écrite de la Société 
SORACOM et de l'auteur concerné. Les diffé- 
rents montages présentés ne peuvent être réali- 
sés que dans un but privé ou scientifique mais 
non commercial. Ces réserves concernent les 
logiciels publiés dans la revue. 



Awufeâ 



RINAWAY 




Régis LE PIPEC 



Aussi, vous disposez de cinq bombes 
pour anéantir les affreux ennemis qui 
feront tout pour contrecarrer vos projets. 
Les trois vies vous seront nécessaires 
pour atteindre votre fusée qui apparaîtra 
en bas de l'écran, toutes les pyramides 
étant prises. 

Si le jeu se bloque, par exemple, vous 
tombez dans un trou, appuyez sur "S" 
(comme Suicide !), vous perdrez alors 
automatiquement une vie ! 
Ce programme, écrit entièrement en 
Basic, vous propose quatre options au 
départ : 

1 - JOUER 

2 - CREER 

3 - DEMO 

4 ~ FIN 



JOUER 

Vous déplacez te bonhomme jaune, en 
bas de l'écran, à l'aide du joystick. Si 
vous appuyez sur "FIRE", une bombe 
apparaîtra dans le sens contraire de votre 
déplacement (derrière "vous, quoi). Le 
score : 1 pyramide = 20 points, 1 enne- 
mi = 60 points. 



C'est la partie la plus intéressante du pro- 
gramme. En appuyant sur le "2", un 
autre menu apparaît : 
1 ) Création du tableau, 

2) Modification du tableau, 

3) Sauvegarde du tableau, 
4} Chargement du tableau, 
5) Jouer avec le tableau, 
6} Fin. 



1 ) Création du tableau 

Vous dirigez le curseur à l'aide du joystick. 
Pour faire afficher un caractère, vous 
appuyez sur "Fire". Vous aurez une 
palette de caractères, au choix : 
M = Mur, H = Bonhomme (vous}, N = 
Ennemi, P = Pyramide, B — Bombe, 
C = Echelle et F = un Blanc. Aussi : 
"( Effacement" qui réinitialise l'écran de 
création et efface, et "(R)etour au 
Menu". Tapez la lettre correspondant au 
caractère, pour pouvoir l'afficher. 

2) Modification 

Permet de modifier le tableau créé en 
"1". 



3) Sauvegarde 

Permet de sauver sur cassette votre 
tableau et de le réutiliser ultérieurement 
en "4". 



Infatigable cou- 
reur, vous devez 
récupérer toutes 
les pyramides d'énergie 
réparties dans les cinq 
tableaux et faire re- 
partir votre vaisseau 
spatial tombé en panne 
sèche... 

4) Chargement 

Permet de charger un tableau. 

5) Jouer 

Permet de jouer avec le tableau fait en 
"1", ou chargé en "4". 

6) Fin 

Retour au menu de présentation. 

Le programme sauvera un fichier de 3 
blocks pour chaque tableau, il est donc 
conseillé de les sauver les uns après les 
autres pour mieux les réutiliser. 
De plus, vous pouvez très bien modifier 
un tableau que vous venez de charger. 



DEMO 

Ce mode permet de visionner tous les 
tableaux, c'est-à-dire les cinq du jeu. 
Pour arrêter, faites "ESC", puis "RUN" 
(un "on break gosub" ayant été prévu 
au début, mais s'avéra dangereux, j'ai 
perdu une fois tout mon programme à 
cause de lui !}. 

FIN 

Permet de quitter le programme. L'ordi- 
nateur vous donnera la mémoire utilisée, 
et celle qui reste. Faites "Clear" et 



Jem 



"PRINT FRE f"")" pour connaître le 
reste de mémoire réelle (les variables 
n'étant plus prises en compte). 

ADAPTATION 

Si vous ne possédez pas de joystick, 
remplacez lés chiffres des INKEYf?) des 
lignes 1 50 à 200 et 4840 à 4880 par 
ceux des touches correspondant à votre 
choix (voir appendice du manuel). 

LISTE DES VARIABLES 

t variable variable (!) uti- 

lisée pour des boucles 

car$ ligne de data lue pour 

mettre en place un 
tableau 

chr numéro du caractère 

ASCII 

sp$ met en place un SPRITE 

spoff$ enlève le sprite 

se score 

vie vies 

bomb bombes 

niv numéro du tableau 

X,9 coordonnées du joueur 



1D '*********#******************* 

20 ' ******* RUNAWAV ******* 
30 '*#***** ******* 

40 '******* chacqeur ******* 

50 ' #******#********#*****#****** 

55 MODE 0:INK 0,1:INK i,24:INK 14,26:B0R 

DER 1 

60 FOR t=-80 TO 5D0 STEP 10 

70 PLOT 35D,250,t/B0*2 

BO DRAW 30, t 

85 DRAW 650, t 

90 NEXT 

100 FOR t=-BD 70 500 STEP 10 

110 PLOT 350,250, t/80+2 

120 DRAW 650, t 

130 NEXT 

135 PRINT CHRÏÎ22)tCHfit(l) 

140 PEN IïLOCATE 7,l:at="LE PIPEC 

150 FOR t=l T0,9:PEN t+5:PRINT HIDilai.t 

,1) \ :NEXT 

155 FOR t=l T0 600:NEXT 

160 PEN 14.L0CATE y^îPRINT'presente:' 

170 FOR t=l T0 1000:f€XT 

160 PEN IïLOCATE 5,4:PRINT*R U N A U A Y 

190 L0CATE S^-PRINT-CHARGEMENT...' 

195 RUN 'RUNAKAV1' 

200 'Tapez 6 sauvez le programme suivant 



obs(?,?) 



hit(?,?) 



P<?> 





car$(?) 



sti(?} 



21D ' 



a la suite celui-là. 



1 PÛKE iB8Dl,0:POKE SE8D2.24 

2 KEY 1,'mode lîirik 0,l:pen l:border l:p 
aper D:ink 1,24'+CHR*(13Ï 

10 ' ******************** ********* 
20 ' ******* R U N A H A Y ******* 
30 ' ****** Régis LE PIPEC ****** 
40 ' ****** Mai 1986 ****** 
50 ' ******* AtlSTRAD(s) ******* 



test de l'écran, déter- 
mine le caractère ren- 
contré (O rien, 1 un 
mur, 2 une échelle, 3 
une pyramide et 4 une 
bombe) 

même chose que 
"obs", utilisé par l'édi- 
teur de tableaux 
caractère à afficher 
pour le joueur 
numéro de caractère à 
afficher (1 à gauche, 2 
à droite, 3 monter ou 
descendre l'échelle) 
caractère affiché pen- 
dant la création du 
tableau, le passage du 
joueur ou -celui des 
ennemis (même 

système que "obs") 
détermine la couleur du 
caractère affiché par 
"car$(?)" (ne pas con- 
fondre "car$" et 
car${?) I) 



coordonnées 

"rideau" rouge 



du 



départ détermine si oui ou non 

(0/1) le jeu est en posi- 
tion "éditeur de 
tableaux" 

p nombre de pyramides 

w1 ,w2,w3,'w4 emplacement de la bulle 
du suicide (window) 

xF abscisse de la fusée 

X(?),Y(?) coordonnées de l'en- 

nemi 

e1 ,e2 sens de déplacement de 

l'ennemi 

go indique si l'ennemi. se 

déplace ou non (0/1) 

nt note de musique 

dr durée 

hrun$ haut du titre "RUN- 

AWAY" 

brun$ bas du titre "RUN- 

AWAY" 

hom indique si le bonhomme 

a été placé dans le 
tableau créé par l'utili- 
sateur 

nb nombre d'ennemis 

créés 

jeu indique s'il faut initiali- 

ser le jeu ou non (0(1 ) 



70 DIH obs(40,25l,hit(40,25) 

B0 ENV 1.5,4,!,1,1B,5 _ r 

90 GOSUB 3470:'REDEF." CÀRATERES 

100 GOSUB 4040: ' PRESENTATION 

110 ' 

120 ' ROUTINE PRINCIPALE 

130 ' 

140 G0SUI 144D 

150 IF (INKEY(74)=0 AND I>1 AND 0b5(x-l, 

mon then gosub 270 

140 IF IINKEY(75)=0 AND i<40 AND obslitl 

iBlOll THEN GOSUB 340:60T0 190 

170 IF UNKEY(72!=0 AN» obs(x,y)=2 AND o 

bsix,g-l]OI) THEN G0SU1 410 

1B0 IF INKEV(73>0 AND lobsl x,y+l 1=2 OR 

obs(x,y*lK>l) THEN GOSUB 470 

190 IF (INKEY(74)=0 AND bo.b<>0 AND obsi 

«*S,I|M)I THEN GOSUB B70 

200 IF 1NKEYI60)=0 THEN 470 

210 IF 0bsiX,BM THEN B20 

220 IF obs(x,y)=0 AND obs(x,y*tK>l AND 

ob5(«,!)<-l!<>2 THEN G0SUÏ 540 

230 IF 0b5(«,u)=3 THEN GOSUB 750 

240 IF obslx,g)=7 THEN 1300 

250 IF plol=gio> THEN p(o)=d(o> ELSE plo 

)=g(ol 

260 GOTO 140 

270 ' 

280 ' BONHOMME A GAUCHE 

290 ' 

300 «=x-l:o=l:PEN hPRINT sp«:L0CATE x,y 

:PRINT CHfltlp(o)>;:g=I 

310 a=obs(x+l,y>:PEN stila) 

320 PRINT spoff(:LOCATE x+l,y:PRINT car» 

la); 

330 RETURN 

340 ' 

350 ' BONHOMME A DROITE 

340 ' 



370 x*x*l:o=2:PEN 1:PRINT sp«:L0CATE x.ij 
iPRINT CHRt(p(o))';:g— 1 

3B0 a=obs<x-l,y):PEN stila) 

390 PRINT spoff«:L0CATE x-l,g:PRINT cart 

(a); 

400 RETURN 

410 ' 

420 ' BONHOMME EN HAUT 

430 ' 

440 y=y-l!0=3:PEN 1 : L0CATE x,g:PRINT spt 

;CHfl«tplo)l 

450 PEN 3:L0CATE x,y+l:PRINT spoff«;CHR* 

(205) 

440 RETURN 

470 ' 

4B0 ' BONHOMME EN BAS 

490 ' 

500 y=y*t:u=3:P€N IsLOCATE' x,y:PRINT sp* 

;CHR»lplo)l 

510 a=Dbs(x,y-l):PEN stila) 

520 L0CATE x,y-l:P«INT spofff ;carila); 

530 RETURN . 

540 ' 

550 ' BONHOMME EN CHUTE 

540 ' 

570 PEN 1:UHILE obslx,y+l)<>l AND ob5(x, 

Ï+II02 

5B0 u=u*l:L0CATE x,g:PRINT CHR«I2D3) 

590 Î0CATE x,y-lsPRIMT" - 

400 IF obs(x,y)=3 THEN S0SUB 77D 

410 IF pbs(x,y)=4 THEN 820 

420 IF obs(x,ij)!=7 THEN 1330 

430 SOUND l,g,2 

640 CALL SBDI9:IF pbslx,y)=3 THEN GOSUB 

750 

450 MEND:L0CATE x,g:PRINT CHRJI202) 

460 RETURN 

67D ' 



4B0 ' 
490 ' 



BONHOMME SE SUICIDE 



l^^^A^xA 



700 IF x<24 THEN »l=2:»2=14:»3=l:»4=207 

ELSE »l=-2:»2=-14:«3=-l:»4=208 

710 HINDOU i2,x+«l,x+»2,y-l,y:PAPER «2,1 

:CLS «2 

720 PEN liLOCATE ï+i«3,y : PR1NT CHR»(»4>:P 

EN t2,3iPRINTi2, , ADIEU 3 MONDE CfflJEt.. 

730 SOUND l,2D,A,7,O,a,liL0CATE x,y:PR!N 

T CKR«(203)lF0R t«l TO 5OO:NEXT:60T0 102 


740 ' 

750 ' BONHOMME PREND 
760 ' 

770 p=p-l:sc=5c+20:Db5{x,y}=0 
780 SOUND 1,1000,4,7 

790 LOCATE tl,l,2:PRINTil,USING'tiiii";5 
c 

000 IF p=0 AND pa=l THEN GOSUB 1230 
810 BEIURN 
820 ' 

B30 ' BONHOMME EXPLOSE 
840 ' ' 

B50 PEN liLOCATE K,y:PRIMT CHR«(23B):F0R 
t=l TO lODiBOROER t\4:S0UND l,t, 1,7,0,0 
,1:S0UND 2,t«2,l,5iSOUND 3,ttlD,l,3iNEXT 

860 SOTO 1020 

B70 ' 

880 ' BONHOMME POSE UNE BOMBE 

810 ■ 

700 bo»b=bo»b-l:PEN hLOCATE x+g.yiPRINT 

CHR«(204!iob5(x+g,y>=4iS0UND 1,1000,2,7 
910 LOCATE il,32,2:PRINT 11," "iîLOC 
ATE il,32,2iF0R t=l TO bombiPRINT il,CHR 
$(204>;:NEXT 
920 RETURN 
930 ' 

940 ' LE TABLEAU DE MARQUE 
950 ' 

960 HINDOU il, 3,38,1, 2:PAPER il,l:CLS il 
970 PEN il,2iPRINTil, "SCORE VIE 

NIVEAU BOMBE - ; 
980 PEN il,3:L0CATE il,l,2:PRINTil,USING 
■MMrjKiLOCATE ii,8,2:F0R t=l TO île: 
PRINT il,CHR«(200)|:NEXTiPAPER 3:PEN 1:L 
OCATE 16,1:PRINT hruniiLOCATE 11,2:PRINT 

bruntiPAPER 

990 LOCATE il,26,2iPRINTil,USING"ii>iv 
iLOCATE il,32,2:F0R t=l TO bmbiPRINT il 
,CHR«(204)iiNEXT 
1000 obs(t,s]=a 
1010 RETURN 
1020 ' 

1030 ' BONHOMME PERD UNE VIE 
1040 ' 

1050 vie=vie-l iLOCATE il,8,2:PRINT il,' 
":LOCATE il,B,2:F0R t=l TO vieiPRINT i 
1,CHRS12001;:NEXT 
1060 IF vie<l THEN 2300 
1070 GOSUB 1170:1F depart=l THEN 60SUB 5 
460 ELSE GOSUB 1860 
1080 GOTO 110 
1090 ' 

1100 ' BONHOMME BOUFFE PAR L'ENNEMI 
1110 ' 

1120 FOR t=y TO 4 STEP-1 
1130 y=y-l:PEN 1:L0CATE x,y:PRINT sp*;CH 
R«1209l 

1140 a=obs(x,y*l)iPEN 5ti(a) 
1150 LOCATE x,y+liPR!NT 5poff»;car«(a)i5 



OUND l,y,4,7,0,0,liS0UND 2,y«I0,4,5:S0UN 
D 3,ytlOO,4,3iCALL JBD19 

1160 NEXTiGOTO 1D20 
1170 ' 

1180 ' RIDEAU ! 

1190 ' 

1200 BORDER 6iF0R yy=347 TO -1 STEP-1:PL 
OT -4,aa,3iDRAU 640,yyiNEXT 

1210 FOR yy=l TO 367:PL0T -4,yy,0iDRAU 6 
40,yuiNEXTiB0RDER 2 

1220 RETURN 
1230 ' 

1240 ' LA FUSEE 

1250 ' 

1260 p=,-l:xf=INTIRND«39)-H 

1270 IF obs(«f, 241=0 THEN Db=(xf, 241=7 E 

LSE GOTO 1260 

1280 PEN liLOCATE »f,24:PRINT CHRSI2391 

1290 RETURN 

1300 ■ 

1310 ' BONHOMME PART EN FUSEE 

1320 ' 

1330 p=liobs<x,y)=0 

1340 FOR t»y TO 4 STEP-1 

1350 y=y-l : PEN liLOCATE x.yiPRINT spS;CH 

RSI239) 

1360 a=obs(x,y+l)iPEN stital 

1370 LOCATE »,u+l:PRINT spoff«]carS(a] :S 

OUND l,y,4,7,0,0,liSOUND 2,y*10,4,7,0,0, 

1: SOUND 4,y»50,4,7,0,0,l 

1380 NEXT 

1390 RESTORE 2190:G0SUB 2130; IF bo»b<5 T 

HEN to«b=Do»b+l 

1400 IF depart=l THEN niv=niv+l;jeu=l:60 

TO 4440 

1410 GOSUB 1170 

1420 GOSUB 1810 

1430 GOTO 110 

1440 ■ 

1450 ' LES ENNEMIS 

1460 ' 

1470 «=«tl:IF »>3 THEN nFl 

1480 el=0ie2=0igo=0 

1490 IF (xl»Kx AND nbs(x(«>*l,y<»)X>l) 

THEN x («)=x(nl*l :el=-l :e2=0:go=l : po=201 
:GOT0 1530 
15D0 IF lx(«)>x AND Dbs(x(»)-l,y(«)K>l) 

THEN x(.)=x(ii>-liel=li-2«0:gcFliptj=200: 
GOTO 1530 
1510 IF (yluKy AND obs(xl»),y(»)*l)<>ll 

THEN y(»)=u(»W:el=0:°2=-l:go=lipo=202 
1520 IF lyd»y AND obs(xl»>,y<»)-l« 
R lobs(x(»),u(«)-ll=0 AND obs<x(»>,y!»>) 
•21) THEN y(.)=y(»)-l:=l=0:e2=I:go=l:po= 
202 

1530 PEN 3:L0CATE x(«l,y(«l;PRINT sptiCH 
Ri(po) 

1540 a=obs(x(i>Hel,y(i>)+=2)iPEN stilal 
1550 IF go=l THEN LOCATE x(«l«l,y(.>+e2 
:PRINT spoffSicarîla); 
1560 IF ab=(xli>l,yln)l=0 AND obs(x(»),yl 
■1+11=0 THEN GOSUB 1600 
1570 IF x=x(i>> AND y=y(«l THEN 1090 
15B0 IF obsfx(»>,y(»)>=4 THEN GOSUB 1730 

1590 RETURN 

1600 ' 

1610 ' ' ENNEMI EN CHUTE 

1620 ' 

1630 LOCATE x(.),yl«):PRINT ' 



1640 UHILE obs(x(«),yl»)ti)<>l AND Dbilx 

(■),y(«)«l)<>2 

1650 y(«)=y(ll*l 

1660 PEN 3:L0CATE x(»>,y(»l:PRINT CHRSI2 

m. 

1670 a=obs(x(i),y(ll-ll:PEN st. (a) 

1680 LOCATE xlal,yl>)-l:PRINT carilal 

1690 SOUND 2,xa,2,15 

1700 IF obslxlil,yl»)l=4 THEN LOCATE xll 

>,y(n>iPRINT' -jGOTO 1730 

1710 UEND 

1720 RETURN 

1730 ■ 

1740 ' ENNEMI EXPLOSE 

1750 ' 

1760 PEN liLOCATE x(»),y(»)!PRINT CHR«(2 

38):F0R t=I TO 25.-B0R0ER tUiSOUNO I,t,l 

,7,0,D,1:S0UND 2,t«2,l,5:S0UND 4,t»10,l, 

3:NEXT 

1770 BORDER 2:L0CATE x(.),y(.)iPRINT- ■ 

1780 Dbs(xt.),yl«))=0:xl»l=INT(RNDi37)+2 

:y(ml=3 

1790 5C=sc*60:60SUB 790 

1800 RETURN 

1810 ' 

1820 ' ' MISE EN PLACE DU TABLEAU 

1830 ' 

1840 niv=niv*l:pa=liPAPER 0:1F niv>5 THE 

N niv=l 

1850 50SUB 990 

1860 ON niv GOSUB 2370,2630,2B90,3150,34 

io 

1870 nb=Oip=0:FOR s=3 TO 24 

1880 READ at:FOR t=l TO 40 

1B90 b$=MID«(aJ,t,l):a=VAL(b*l 

1900 ob5(t,!)=a:IF a<>3 AND a<>5 AND a<) 

6 THEN 1940 

1910 IF a=3 THEN p=p+l 

1920 IF a=5 THEN x=t:y=Sioba(t,s>=0 

1930 IF a=6 THEN PEN 3inb=nbtlix(nb)=tiy 

(nb>=s:obs(t,s)=0 

1940 PEN stilaliLOCATE t.siPRINT rardal 

jl'IF a<5 THEN obs(t,5l=a 

1950 NEXT:NEXT 

1960 PEN 2:F0R t=l TO 40:L0CATE t,25:PRl 

NT CHRl(1431-,iobs(t,251"l:NEXT 

197D RETURN 

1980 ' 

1990 ■ INITIALISATION ■ 

2000 ' 

2010 MODE 1:INK 0,2iINK 1,24:INK 2,12:1)1 

K 3,6:B0RDER 2 

2015 IF jeu=l THEN RETURN 

2020 sc=D:vie=3iboisb=5:depart=0 

2030 sp«=CHR«(22>+CHR*(llispoff«=CHR«[22 

ItCHRi(O) 

2040' RESTORE 2060 

2050 FOR t=0 TO 6:READ c:car«(t)=CHR«(cl 

:NEXT 

2060 DATA 32,143,205,206,204,200,201 

207d sti(l>=2:sti[2}=3;sti(3)=l:sti(4)=l 

istiI5)=listil6KJ 

2080 p(l)=200ig(ll=200:d(ll=227 

2090 p(21=20Iig(2)=201idI2l=228 

2100 pI3)=202:g(3)=202id(3)=229 ' 

2110 RETURN 

2120 ' 

2130 ' INTERLUDES MUSICAUX 

2140 ' 

2150 READ nt,dr;HHILE ntO-1 



2160 SOUND l,nt,dr,7,l,Q;SOUH0 2,nt»5,dr 

,5,0,i:S0UND l,i«,*, 3,0,0,1 

2170 6010 2150:UEHD 

2180 RETURN 

2190 ' 

2200 ' DATA Oh Suianna-FOSTER 

2210 '(Pardon pour les nelD&anes!) 

2220 ' 

2230 DATA 284,20,253,20,'225, 20,0,2,190,3 

0, 0,2, 1W,30,0, 2,149,25,0,2, 190,25, 0,2,2 

25, 25,0,2, 2B4,25,0,2,253, 25, 0,2,225, 30,0 

,2,253,25,0,2,284,25,0,2,253,40,0,2 

2240 DATA 284,20,253,20,225,20,0,2,190,2 

5, 0,2, 190, 25, 0,2,169,25^0,2, 190,25,0,2,2 

25,25,0,2,284,25,0, 2, 253,25, 0,2,225, 25,D 

,2,225,25,0,2,253, 25,0,2,253,25,0,2,284, 

45,-1 

2250 ' 

2260 ' DATA Marche Funèbre 

2270 ' 

22B0 DATA 500,100,0,2,500,75,0,2,500,25, 

0,2,500,100,0,2,425,75,0,2,450,25,0,2,45 

0,75,0,2,500,25,0,2,500,75,0,2,525,25,0, 

2 

2290 DATA 500,75,-1,-1 

2300 ' 

2310 ' 6ANE OVER 

2320 ' 

2330 BORDER 2:UINTXW #2, 12,29,10, 12:PAPE 

« «2,1:0.8 «2 

2340 PEN »2,3:PP.INT#2 l :aS=■ 6 A « E V 

E R - :FOR t=l TO IB:PRINT #2,HID*la«,t,l 

)j;SOUND l,t*100,5,7:FOR u=l TO 30:NEKT: 

NEXT 

2350 RESTORE 2250:60SUB 2120 

2360 60T0 4040 

2370 ' 

2380 ■ TAILEAU 1 

2390 ' 

2400 RESTORE 241D:RETURN 

2410 DATA OOO6OOO[)O3OO0OO(X]OOO0O0OOO0OO0 

0000000000 

2420 DATA 001111111111111112111111120000 

0000000000 

2430 DATA 0O0O0O0OO0OO0000O2OO00DD020000 

0000000000 

2440 DATA OI1000D0000000000020003DD020000 

0000000000 

2450 DATA O0OOO0OOOOODOOOOD211I1111111DO 

0000000000 

2460 DATA OOD0PO06OOMXMODO2OOQOOPOOOOOO 

OOOOODOOOO 

2470 DATA 000000011111 11 1112000000000006 

OOOOODOOOO 

2480 DATA D30Œ1OO000O0ODOO020O0O00000111 

1000000000 

2490 DATA ODMMOOOD[)OOOD0002000DODOOOOOO 

03000DOOOO 

2500 DATA OQDOODDOOOOOOD0302000000000000 

OOOOOOOOOO 

2510 DATA 000000000000111112111111200000 

1111000000 

2520 DATA 00DOD00OD0O0OOO0O2O0OD002D0O00 

OOOOOOOOOO 

2530 DATA DOrjOODuT1000DOOOOD2DD[)00020DOOO 

0000030000 

2540 DATA DOOI1OOOOOD0O0O0O02O0OOO02O0CIO0 

0000111100 

2550 DATA DOŒ10000003000000200000D200000 

OOOOOOOOOO 



2560 DATA 001111112111121111112000200000 

OOOOODOOOO 

2570 DATA 000000002000020000002000230000 

OOOOOOOOOO 

25B0 DATA 0O3D0O0O2D0DO2D30OO020O0111112 

1111111200 

259D DATA 011121111100021110111210000002 

0000000200 

2600 DATA 0D0D2000000D020000O002OO0D0O02 

0000000110 

2610 DATA OOD0200000DD0200000002DDOD0002 

OOOOOOOOOO 

2620 DATA 000020000000020000000200000002 

0050000000 

2630 ' 

2640 ' TAILEAU 2 

2650 ' 

2660 RESTORE 2670:RETURK 

2670 DATA 030000600000000003000300000000 

0006000030 

2680 DATA 011111111111120001121100021111 

1111111110 

2690 DATA 000000000000020000020000020000 

OOOOOOOOOO 

2700 DATA 000000000000020000020000020000 

OOOOOOOOOO 

2710 DATA 000000000000020000020000020000 

OOOOOOOOOO 

2720 DATA 000000000000020000020000D20000 

OOOOOOOOOO 

2730 DATA D00000000000011211111112110000 

OOOOOOOOOO 

274D DATA 00000DDO0OO0O002DOOOO002O0ODO0 

OOOOOOOOOO 

2750 DATA O00OO0OOO0000O020OD000020000D0 

OOOOOOOOOO 

2760 DATA 000000000000300200000002003000 

OOOOOOOOOO 

2770 DATA 000000000002111111121111111200 

OOOOOOOOOO 

27B0 DATA 00DDDOOOO0O2OOOO0OO20O000O02O0 

OOOOOOOOOO 

2790 DATA D000O00O0O02O0O03O020030O002D0 

OOOOOOOOOO 

2BO0 DATA 000000000211111111121111111112 

OOOOOOOOOO 

2B10 DATA 000OOO0O2O00DD0OOO020O0O0DOO00 

2000000000 

2820 DATA 000000020000000000020000000000 

0200000000 

2830 DATA O0ODOD2O030DOOOOOO02OO00DDD0O3 

0020000000 

2840 DATA 0000021 1110DD0000O020000DDO001 

1112000000 

2850 DATA OOOD20300D0000000002000DOOOOOO 

0030200000 

2860 DATA 030211100000000000020000000000 

0011120300 

2B70 DATA 011000000005000000020000000000 

0000001110 

2880 DATA 010001010101000060020000000101 

1010000010 

2890 ' 

2900 ' TABLEAU 3 

2910 ' 

2920 RESTORE 2930: RETURN 

2930 DATA 000000000000000000000000000000 

DDOOOOOOOO 

2940 DATA 000000000000000000000000000000 

OOOOOOOOOO 



2950 DATA OOOOOOOOOOOODDOOOOOOOOOOOOOOOO 

OOOOOOOOOO 

2960 DATA 000323230000000000000000000000 

0032323000 

2970 DATA OO0101D12OTJOOOO00O0O0OODDOOOD0 

0210101000 

2980 DATA O0O111112OO000ODDO00O000OOOOO0 

0211111000 

2990 DATA 0001 1 1 1 12O00O0OODO00000D0OO00D 

0211111000 

3000 DATA 000110112000000000000000000000 

0211011000 

3010 DATA 000111112000000000000000000000 

0211111000 

3020 DATA DO0111112DO000O00OO000O00D0O00 

0211111000 

3030 DATA 00O111112OD000O00ODOO0O0DO0000 

0211111000 

3040 DATA 000111112200023232323232323200 

0211111000 

305D DATA 000111111012101010101010101012 

1211111000 

3060 DATA 004111111112111111111111111112 

1111111400 

3070 DATA 000030060002111111111111111112 

0060030000 

3080 DATA 002111I1111111111I11I111111111 

1111111200 

3090 DATA 00212003D0000111111111I11111DO 

0030021200 

3100 DATA 002121111111011111111111111101 

1111121200 

3110 DATA 002121111111011111111111111101 

1111121200 

3120 DATA 002120000000030000060000000300 

0000021200 

3130 DATA 002111111111111111112111111111 

1111111200 

3140 DATA OD20œ05OOO0OOO00ODO2OOOODOOOO 

0000000240 

3150 ' 

3160 ' TABLEAU 4 

3170 ' 

3180 RESTORE 3190:RETURN 

3190 DATA 000000000030000600000060003000 

OOOOOOOOOO 

3200 DATA 000000211111111111111101111111 

1200000000 

321D DATA 000001211111111111111101111111 

1210000000 

3220 DATA 00O0O1220OODOOD00O00ODDD000OO0 

2210000000 

3230 DATA 00OOD1O02111DO0OOO000OO0OO0U1 

2000000000 

3240 DATA DOO001O020O01D000O0000000O1O0O 

2001000000 

3250 DATA 00000 1DOD20001 10016000001 10002 

0001000000 

3260 DATA 000031000021000000100000000120 

0O01000OO0 

3270 DATA ODD111OOO021130OO010ODOOO3112O 

0001110000 

3280 DATA 000100000021110000100000011120 

0000010000 

3290 DATA 0OD1213000200000001D00OO000O20 

0031210000 

3300 DATA 000120100020000000100000000020 

0010210000 

3310 DATA 000120000020000000100000000020 



3320 DATA 0D01 tlDOOO20OOOOO01O0OOaaOOO2O 

0001110000 

3330 DATA 000001 000020000020 100020000020 

0001000000 

3340 DATA 0OODD1O0O02DDDOO2O1333200OOO20 

00010DOOOO 

3350 DATA XOX1XX2ODDOOX1111X00X2O 

oxiooxx 

3360 DATA 00O0010D0O2O003OD00D000D3OO020 

0001000000 

3370 DATA 0000X100021111111111111111120 

0010000000 

33B0 DATA 000000010020222222222222222020 

0100000000 

3390 DATA D00000001D20022222222222220020 

1000000000 

3400 DATA 000030000425000022222220000024 

0000300000 

3410 ' 

3420 ' TABLEAU 5 

3430 ' 

3440 RESTORE 345D:RETURN 

3450 DATA 0000000D30000000DO030000000000 

3DOO0OOOOO 

3460 DATA 021111211112111121111200300121 

1112111120 

3470 DATA O20OOD0OOOOODDDDOOOOOOO02DO0OO 

0000000020 

3480 DATA 02000000DO0000000DDODDO02200OD 

0000000020 

3470 DATA 023000000021111120000000212200 

0000000020 

3500 DATA 0200000OO200000O02DOO0002DDO20 

0000000020 

3510 DATA 020DOD0020000DOD00200D00201002 

2000000020 

3520 DATA 02OD0002D0O0O00000020ODD2O0001 

2000000020 

3530 DATA 02O0Q62O003000OO300200O02O0020 

3000000020 

354D DATA 020002D0D000000D0O0D2D020062O0 

1D00000020 

3550 DATA 020002000000000000002002002222 

0000000020 

3560 DATA 020002000000000000002020002000 

O000OODO2O 

3570 DATA 02000200000D2220000002000020DO 

0000000020 

35BO DATA 020002000022000200000200022200 

0000000020 

3590 DATA 020002000200000020000200000020 
0000000020 

3600 DATA 02OO002OD022O0D0020002O03O0O20 

0003000020 

3110 DATA 0200000220D2003000200200DOOQ20 

0000000020 

3620 DATA O2OO00O02222OOO000D1 1220000002 

2200000020 

3630 DATA 0200OD0000000D6000O00002222222 

2200000020 

3640 DATA 121111211112111121111211111111 

1112111120 

365D DATA 0200OD200O020000200002O00DD0O0 

0002000020 

3660 DATA 02000024300200002DOD0200500000 

0002030024 

367D ' 

3680 ' 

3690 ' REDEFINITION DES CARACTERES 

3700 



rWVVv, 

3710 SYNBOL AFTER 64 ^ ^ 

3720 SYNBOL 64,1X1111110,1X10000001,1X11 

1100, 1X11X1 10,1X11X110, Kl 1001 10,111111 

IX 

3730 SYMBOL 2X,IXlX110,tXlX110,iX1110 

0,1X11011111,1X10111X1,1X1010X00,1X101 

x, sxioio 

3740 SYN10L 201,IX11X1X,1X1100IX,IX11 

1000,5X1 II! 1011, 1X1X11101,1X101, 6X10100 

0.1X10100X 

3750 SYNBOL 202, 1X11X1, iX11010,iXllX,l 

X1111X,IX1XI110,1X1X01, 1X100X1, 1X1X 

01 

3760 SYMBOL 203,1X1X1,1X10001,1X1X10,1 

111111100,1X11111100, 1X1X111, 1X110000X 

3770 SYNBOL 204, 1X0, 1X111, IX1XD, 1X11X0 

,1X111100,1X111100,1X11000 

37X SYNBOL 205,1X10X010,1X1111110,1X11 

11110,1X100X10,1X100X10,1X1111110,1X11 

11110,1X1000010 

3790 SYNBOL 206, 1X11X0, 1X110X,1X1111X 

.1X1111X, 1X1111110,1X1111110,1X11111111 

3BX SYNBOL 207,1X0,1X1,1X1111,1X11111,1 

11111,1X1 

3B10 SYNBOL 2X, 1X0, 1X10000X0,1X1111X0 

o.ixmiiox, ixiiiixx.ixiooxoœ 

3820 SYNBOL 2D9,lX111000X,!Xtll,!XlllX 

111, 1X111X111, 1X111101, 1X1111100,1X1111 

10,1X1111111 

3830 SYNBOL 210,1X11111111, 1X10000X1, IX 

1XXX1, 1X10000X1, IX1000DX1,1X100XX 

1,1X10000X1,1X11111111 

3840 SYNBOL 211, 1X0,1X111111, 1X111111, IX 

uoox.ixiiooœ, ixiiiui, ixiiii il. ixi loo 
11 

3850 SYNBOL 2I2,1XD,1XUXOOX,IX11000X 

0, 1X1 1000000,1X110X000,1X1 1000000,8X1 10 

00X0,1X11X1 

3860 SYNBOL 213,1X0,1X0,1X0,1X0,1X0,1X0, 

8X0,1X10011100 

3870 SYNBOL 214,IXD,IXO,IXO,IXO,1XO,1XO, 

1X0,1X11X1111 

3BB0 SYNBOL 215,1X0,1X0,1X0,1X0,1X0,1X0, 

1X0,1X11X1100 

3B90 SYNBOL 216,1X0,1X0,1X0,1X0,1X0,1X0, 

1X0,1X11X1 

39X SYNBOL 217,1X0,1X0,1X0,1X0,1X0,1X1, 

1X1,1X11111X1 

3910 SYNBOL 218,1X0,1X0,1X0,1X0,1X0,1X10 

X1100, 1X10X1100, 1X10X1100 

3920 SYNBOL 219,1X110011, 1X110011, 1X11X 

1I,H11X11,IX11XX,1X11XX,1X111111,1 

X111I11 

3930 SYNBOL 220,1X11X1,1X11X1,1X11X1, 

1X11111,1X11111,1X0,1X11111111,1X1111111 

I 

3940 SYNBOL 221, 1X1X11110,1X1X11111, IX 

1X11011, 1X1X11X1, 1X1X11X0,1X0, 1X111 

11111,1X11111111 

3950 SYNBOL 222,1X11X1111, 1X11001100,11 

11001 100.8X11001111,8X11X1 100,8X0,1X111 

11111,1X11111111 

3960 SYNBOL 223,IX11X11X,1X11X1101 1 IX 

11X1101,1X11X0110,1X110X110,1X0,1X111 

11111,1X11111111 

3970 SYNBOL 224, 1X11X1,1X1X11X1, 8X1X 

11X1, 1X1100001, 1X11D0X1, HO, 1X111111 11 

,1X11111111 

39X SYNBOL 225,1X1X11X1, 1X1X11001, IX 

11111X1,1X10011000,1X1X11000,8X0,8X111 



11111,1X11111111 

3990 SYNBOL 226,IX10X11X,1X111111X,H 

llllllX,lXllX,iXHX,lXllX,lXllllHX 

,8X11111100 

4X0 SYNBOL 227,1X1100X0,1X11X110,1X11 

1X0,1X10111X0,1X1011101, 1X1X11, 1X1IX 

0,1X1X0 

4010 SYNBOL 228,1X110,1X11001100,1X11100 

,1X11101,1X10111010,1X11X11X10,1X11X0,1 

X1XX 

4020 SYNBOL 229,1X1X110X,IX10110X,1X1 

1XX,1I11!1X, 1X111X10,1X10X1X0,1X10 

0X100,1X10001000 

4030 RETURN 

4040 ' 

405D ' PRESENTATION 

4060 ' 

4070 NODE D:INK 0,0:INK 1,24:INK 2,12:IN 

K 3,6:INK 4,0:INK 5,20: II* 6,6:INK 7,B:I 

NK B,9:B0RDER 12 

40X x=0:niv=0:jeu=0:60SUB 2020:' INITIAL 

ISATION 

4090 depart=0:de»=O 

41X nrun«=CHR»(211>+CHR$<212>+CHR«(213> 

tCHRt(214)tCHR»l215)*CHRtl2161tCHRt(217) 

tCHI»121Bl 

4110 bruni=CHR$(2191*CHRi(220KCHRi(221) 

+CHR«(222HCHR«(223>+CHR«<224)+CHR»I225) 

+CHRK2261 

4120 HINDOU »l,l,20,3,7lPAPER »1,2:CLS I 

r 

4130 HINDOU 12, 1,20,8, 17:PAPER »2,7:CLS« 

2 

4140 UINDOU I3,1,20,1B,25:PAPER I3,3:CLS 

13 

4150 PEN 1:PAPER 4:L0CATE 7,4:PRINT hrun 
»:LOCATE 7,5:PRINT bruni 
4160 PAPER 2:pe=4:F0R t«6 TO 15:PEN pe:L 
OCATE t,3:PRINT'«':L0CATE t,6:PRINT'« , :p 
e=pe+l:IF pe>6 THEN pe=4 
4170 NEXT 

4180 PEN 5:L0CATE 4,4:PR1NT'« - :PEN 6:L0C 
ATE 6.5:PRINT■»■ 

4190 PEN 5:L0CATE 15,4:PR1NT«':PEN 6:L0 
CATE 15,5:PRINT'« - 

4200 PRINT sp«:PEN 3:F0R t=3 TO 1B:L0CAT 
E 5,t:PRINT CHR»(205);L0CATE lt,t:PRINT 
CHR»(2D5):NEXT:PRINT spoffl 
4210 PAPER 8:PEN llLOCATE 6,10:PRINT"1<- 
JOUER " 

4220 LOCATE 6,12'.PRINT'2<-_CREER ■ 
4230 LOCATE 6,14:PRINT"3<-'DEN0 ■ 
4240 LOCATE 6, 16:PRINT'4<- FIN ■ 
4250 a«=SPACE<(151t'«« RUNAUAY •« Jeu 
conçu Et réalise par REGIS LE PIPEC «« 
Hai 1986 ut BONNE CHANCE!!! «»»'*5PACE 

«1151 

4260 encre(l!=0;encrel2)=20:encrel3>=6 

4270 en=l:v=l:dep=l 

42X FOR t=l TO 122:bl"INKEYt:HHILE b»<> 

■1' AND btO'2' AhD bK>'3 - AND blO'4' 

4290 INK 4,encre(en):lNK 5,encrefen+ll:I 

NK 6,encre<en+2) 

43X HPertHlIf en>3 THEN en-1 

4310 PAPER OiPEN 1:L0CATE 3,22:PRINT NID 

liai, t, 151; 

4320 IF dep=l THEN 0=2 ELBE 0=1 

4330 v=y*oep:LOCATE v,2:PRINT CHRllpiq.1) 

:LOCATE v-dep,2:PRInr ■ 

4340 IF p(q)"g(ql THEN plql-dlql ELSE p( 



q)=glq) 

4350 IF V>1? THEN dep«-dep 

4360 IF v<2 THEN dep=-dep 

«70 CALL SBD19iNEXTi60T0 4280 

4360 REND 

«90 IF M='l' THEN 60SUB 19BO:60SUB 960 

:G0SUB 1810:6010 110 

4400 IF b«="2" THEN 4440 

4410 IF b»='"3" THEN 55BD 

4420 IF b«»"4" THEN 5700 

4430 GOTO 4430 

4440 ' ,' 

4450 ' «NU DE CREATION 

4440 ' 

4470 «ODE 1:INK 0,0:INK 1,24:INK 2,20:IN 

K 3,4:B0RDER 0:depart=l 

4480 PEN llPAPER D: PRINT : PRIMT: PRIMT: PRI 

NT:PRINT" K- CREATION DE TABLEA 

U" 

4490 PRINTiPRINT 1 2<- ItODIFICATI 

ON DE TABLEAU 1 

4500 PRINTîPRINT" 3<- SAUVEGARDE 

DU TABLEAU' 
4510 PRINTiPRINT" 4<- CHARGEMENT 

DU TABLEAU- 
4520 PRINTiPRINT" 5<- JOUER AVEC 

LE TABLEAU" 

4530 PRINTiPRINT" 4<- FIN" 
4540 PRINT:PRINT;P«INT" Faites 

votre choix." 

4550 r=VAL(INKEY»l:IF rOl AND r<>2 AND 
r<>3 AND r<>4 AND r<>5 AND r<>6 THEN 455 


4540 ON r GOSUB 45B0,494O,5070,523O,539TJ 
,4040 

4570 GOTO 4440 
4580 ' 

459D ' CREATION DE TABLEAU 
4400 ' 

4410 'ATTENTION: ne pas confondre: 
4420 ' 'F' îeffacenent de caractères 
4430 ' 'E' îeffacement de l'écran 
4440 ' Vous devez «lettre 1 BONHOMME, 
4450 ' 3 ENNEMIS et autant de PYRAMIDES 
4440 ' que vous desirez ! . . . 
4470 ' 

4480 MODE 1:INK 0,1:B0RDER 1:ERASE hit:D 
IN hitl40,25) 

449D PEN 1:F0R t=l TO 4O:L0CATE t,25:PRI 
NT CHR* ( 1 43 > ; :hi t ( t , 25 ) =1 : NEXT 
4700 PEN 2:L0CATE 3,1:PRINT CHR*(143)j"= 
M ";:PEN 1:PRINT CHR«(200)i"=H ';:PEN 
3:PRINT CHR«(201)j:PRINT"=N ";:PEN 1:PR 
INT CHR«(204);'=P " ;CHR$(204) ; :PEN 3:PR 
1NT'=B ";:PEN 2:PRINT CHR»(2051i"=C "; 
:PEN 1:PRINT CHR«(210li , =F" 
4710 PEN hLOCATE 4,2:P»INT"(E)FFACENENT 

(fl)ETOUR AU MENU" 
4720 xc=20:yc=12:chr=32:c=l ' 
4730 a«=UPPER«(INKEYS> 
4740 IF a*="M" THEN chr=143ic=l 
THEN chr=2O0:c=5 
AND plein=0 THEN chr=20I: 



4750 IF a«="H" 

4740 IF a«="N" 

c=4 

4770 IF a«="P" 

47B0 IF a»""C" 

4790 IF a«="F" 

4800 IF at="B" 



THEN chr=204:c=3 
THEN chr=205:c=2 
THEN chr=32:c=0 
THEN chr=204:c=4 



4810 IF ai="R" THEN 4440 
4820 IF a«="E" THEN GOSUB 4930 



4830 efx=0:e.fy=0 ~ ~ . 

4840 IF IINKEV(74I=0 AND xc>ll THEN xc=x 

c-l:efx=l 

4850 IF (INKEV(75)=0 AND ic<40) THEN xc= 

xc+l:efx=-l 

4B40 IF (INKEY(72)=0 AND yc>3) THEN uc=u 

c-1 iefy=l 

4870 IF (INKE¥(73)=0 AND yc<24) THEN yc= 

yc+Iiefy=-l 

4880 IF 1INKEV(74I=0 AND xc>=l AND xc<=4 

AND yc>=3 AND yc<»24) THEN SOUND 1,100 

,2,7:L0CATE <c,yc:PRINT CHRtlchrlihitlxc 

,yc)=c:feu=l 

4B90 LOCATE xc,yc:PRINT CHRJI143) 

4900 a=hit(xc+efx,yc+efy) 

4910 LOCATE xc«efx,yc*efy:PRINT car*(a); 

4920 GOTO 4730 

4930 LOCATE 1,2:PRINT" VOUS ETES VR 

AIMENT SUR (0) 7 "| 

4940 a«=UPPER$(lNKEV»):IF a«=" THEN 494 



495D IF a«="0" THEN ERASE hit:DIM hit(40 

,25I:aS:G0T0 4690 aSE GOTO 4700 

4960 ' 

4970 ' MODIFICATION DU TABLEAU 

4980 ' 

4990 «ODE 1:INK 0,1:B0RDER 1:PEN 1 

5000 PRINT" Veuillez patientez 

5010 FOR u=3 TO 24:F0R t=l TO 40 

5020 a=hit(t,u) 

3030 LOCATE t,u:PRINT cartlal; 

5040 NEXT:NEXT 

5050 FOR t=l TO 40:PRINT CHRSI 1431 ; :hit ( 

t,25)=l:NEXT 

5040 GOTO 4700 

5070 ' 

5DBD ' SAUVEGARDE DU TABLEAU 

5090 ' 

5100 MODE 1 

5110 PRINT" METTEZ EN PLACE LA K7. . 



5120 
REC 
5130 
40,5: 
5140 
5150 
5160 
5170 
51B0 
5190 
520D 
TUEE. 
5210 
5220 
5230 
5240 
5250 
5240 
5270 



PRINT:PRINT:PRIN7:PRINT"APPUVEZ SUR 

t PLAY PUIS UNE TOUCHE:"; 

PRINT CB««tl43);:CALL 1BB17:L0CATE 

PRINT" "; 

PRINT: PRINT" OK..." 

0PENOUT"!run.tab" 

FOR u=3 TO 25:F0R t=l TO 40 

PRINT»9,hit(t,u) 

NEXT:NEXT 

CtOSEOUT 

PRINTiPRINT" SAUVEGARDE EFFEC 

CALL SBB17 
RETURN 

' CHARGEMENT DU TABLEAU 



«ODE 1 
PRINT" 



METTEZ EN PLACE LA ». . 



5280 PRINTlPRINTlPRINT:PRINT"APPUÏEZ SUR 
PLAY PUIS UNE TOUCHE :"; 
5290 PRINT CHR«(143):CALL SBB17:L0CA7E 3 
5,5:PRINT" ■ 

5300 PRINTiPRINT" OK..." 
5310 OPENIN" Irun.tab" 
5320 FOR u=3 TO 25:F0R t=l TO 40 



5330 INPUT#9,hitlt,u> 
5340 NEXT: NEXT 
5350 CLOSEIN 

5360 PRINTiPRINT- CHARGEMENT EFFEC 
TUE. . . ' 

537D CALL 4BB17 
5380 GOTO 4440 
5390 ' 

5400 ' JOUER AVEC LE TABLEAU 
5410 ' 

5420 IF hitll, 251=0 THEN CLS:PRINT" IN 
POSSIBLE TABLEAU NON EN MEH0IRE.":CALL S 
BB17:G0T0 4440 
5430 GOSUB 1980 
5440 GOSUB 930 
5450 depart=l 

5460 pa=0:bonFO:p=0:nb=0:FOR u=3 TO 25:F 
OR t=l TO 40 

5470 a»hit(t,u):PEN stila) 
54S0 obslt,u)=a:IF a<>3 AND a<>5 AND a<> 
6 THEN 5520 

5490 IF a=3 THEN p=p+l:pa=l 
5500 IF a=5 AND hon=0 THEN x=t:y=u:no»=l 
:obs(t,u)=D ELSE IF a=5 AND bonpl THEN P 
RINT CHR*(7):L0CATE 1D,1D:PEN 3:PRINT'ER 
REUR, IMPOSSIBILITE D'AVOIR 2 BONHOMMES"; 
:CALL SBB17:G0T0 4440 
5510 IF a=6 THEN nb=nbtl:IF nb>3 THEN PE , 
N 2:PRINT" ERREUR, 3 ENNEMIS SONT OBLIGa' 
TOIRES.":CALL SBBI7:G0T0 4440: ELSE xlnb 
)=t:ylnbl=u:obs(t,u)=D 
5520 LOCATE t,u: PRINT carjla); 
5530 NEXT:NEXT 

5540 IF nb=0 THEN LOCATE 1,10:PRINT" ERR 
EUR, il n'y a pas d'ennemis !...":zx=l 
5550 IF hom=0 THEN LOCATE 1,12:PRINT" ER 
REUR, il n'y a pas de bonhomme !...':zx=, 
1 

556D IF zxM THEN CALL siB17izx=0:50T0 4 
440 

557D GOTO 110 
5580 ■ 

5590 ' DEMO 

5600 ' 

5610 MODE 1:INK 0,0:BORDER 
5620 PEN 1 1 PAPER 3iL0CATE 13,liPRINT"»« 
MODE DEMO w 
5630 PAPER O:niv=0 
5640 niv=niv+l:IF niv>5 THEN niv=l 
5650 GOSUB 1860 

5660 FOR t=10 TO 35:S0UND l,t,4,15,0,l:S 
OUND 2,t»10,4,15,l,0:S0UND 4, «15, 4, 15,0 
, 1 :NEXT 

5670 FOR t=35 TO 10 STEP-1:S0UND l,t,4,l 
5,0,1:S0UND 2,«10,4,15,1,0:SOUND 4,«15 
,4,15,0,1:NEXT 
5680 GOSUB 1170:B0RDER 
5690 SOTO 5640 
5700 ' 

5710 ' THE END 

5720 ' 

5730 MODE ! : PEN liTNK OyillNK 1,24:INK 2 
,20:INK 3,6:B0RDER I 

5740 PRINT:PRINT:PRINT" MEMOIRE UTILIS 
EEi'iiPRINT HIMEM-FREC") 
5750 PRINTiPRINT" MEMOIRE RESTANTE! 1 ;: 
PRINT FREC"] 
5760 PRINTiPRINT"L'A»strad":PRINT" est" 

5770 END ■ 



JleJvemH,^ 
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■tt r non,... il n'y a pas de faute d'orthographe dans le nom de 
I ce programme, il ne s'agît pas d'un casse-briques, mais d'un 

.^Usuperbe jeu de réflexion qui vous donnera bien du fil à 
retordre. 



Placer une brique dans une case, rien de 
bien compliqué, sauf si votre adversaire 
est un ordinateur. Ses possibilités de 
déduction transforment ce jeu en un gros 



casse-tête. A vous de le contrer, pour 
que votre dernière brique soit gagnante. 
La première partie de ce programme est 
le traditionnel Loader qui devra être sau- 



vé en début de bande si vous n'utilisez 
pas de disquettes, avec, par exemple, le 
nom CASE. Le second programme sera 
sauvé impérativement après CASE sous 
le nom CASE1 . Lorsque vous tapez RUN, 
l'écran reste bleu durant le temps néces- 
saire à la création de la page titre. Le jeu 
se pratique à l'aide des touches 1 , 2 et 
3 de la rangée du haut uniquement car 
le pavé numérique à été redéfini pour les 
caractères accentués. La règle du jeu est 
incluse dans le programme. 
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6 1. lsPRINT titref-PEN 1 

53 tx=*!u2=3Sa 

54 FOR 1=1 TO B 

55 x2=0 

56'FOR j-i Tû pixel 

57 IF TESTIx2.y2)=2 THEN PLOT x,y.a:PL0T 
x,y-2;PL0.T x"+2,y:PL0T x+2,y-2 

58 x=x+4:x'2=x2+2 

59 NEXT j 

60 y=y-4:y2=y2-2:x=tx 

61 NEXT i ' 

62 LOCATE tl,I,l:PRINT»t,SFAŒ*<caracter' 
e) 

63 RETURN 

64 LOCATE 12,13:PRINT'auteur 5. Goumenî 



CASE - BRIQUES 

auteur Georges Gousent 

AMSTRAD CPC 444 

12 ' redéfinition pave mjmerioue 

13 ' 

14 'Hf(MIHHH«HHH»»IHHI»tt 

15 svmeol after 127 

16 FOR i-128 TO 137 

17 READ Sl,s2,53,s4,s5,s6,s7.s8 

la SYlffiOL i,sl,s2,s3,s*,5S,-4,s7,s8 

19 KEY i.CHRïli) 

20 NEXT 

21 DATA 24,36,60,102,102,102,60,0,8.14.6 
0,102,126,96,60,0,16,8,60,102.126,96,40. 
0,32,16,102,102,102,102,62,0,0,0,60,102, 
96,62,B,24 

22 DATA 24,36,60,102,126,96,60,0,48,72.1 
20, 12, 124, 204, 11B, 0,24, 36, 56, 24. 24. 24, 60 
,0,28, 18,56, 108,54,16, 144,96,32, 16, 120, 1 
2,124.204,118,0 

23 KEY 13B,CHR$(63) 

24 KO 139,CHR«(34I 

26 ' 

27 ' page écran chargement 



29 ' »«*****«*«♦****+******««***#**** 

30 FOR i=236 TO 243 

31 READ Sl,s2,s3,s4,55,s6,s7,s8 

32 SYHBOL i,sl,s2,s3,s4,55,56,s7,s8 

33 NEXT i 

34 DATA 0,0,0,41B,442,424,41B,4ff, 480,49 
O,4a0,4c8,4c8,4a0,490,4BO,4ff,418,424,E4 
2, 41B,0,0,D, 401, 409, 405, 413, 413,405, 409, 
401 

35 DATA 48c, 452, 402, 459, 499, 482,466, 419, 
431, 44a, 440, 49a, 499, 441, 466, 498,819, 466, 
4B2,499,459,402,452,48c,49B,466,441,499, 
49a,l40,44a,431 

36 MODE kBORDER 1 ! : FOR 1=0 TO 3lINK 1,1 
1:NEXT liPRINT CHRii22)»CHR)ll>:SPEED KE 



Y 1,1:PEN 

37 a*=STRING$(40,CHR«(143l):PEN 3:L0CATE 
1,1:PRINT a«:L0CATE 1,2:PRINT a«:L0CATE 
1.24:PRINT a* 

38 FOR 1=0 TO 16:PL0T 0,i,3:DRAW 639, i:N 
EXT i 

39. FOR 1=3 TO 23ÎL0CATE l,i:PRINT CHRtl 1 
43):L0CATE 2,i:PRINT CHR*( 143): LOCATE 39 
,i:PRINT CHR«[143I:L0CATE 40,i:PRINT CHR 
IU43):NEXT i 

40 PEN 

41 LOCATE 3,2lPRINT STRING$(36,CHR«I236) 
IlLOCATE 3,24:PRINT STRINGS(36.CHR$(238) 
) 

42 FOR 1=3 TO 23:L0CATE 2.I:PRINT CHRt(2 
39):L0CATE 39.I:PRINT CHR*(237):«EXT I 

43 FOR 1=1 TO 4:READ X,Y.Z:LOCATE X,Y;PR 
INT CHRSIZhNEXT I 

44 DATA 2,2,240,39,2,241,39,24,243.2,24, 
242 

45 titreS="CASE-ÎRI0UES":y=320:a»2:t=O:6 
OSUB 46:y=316:a=l:t=l:G0SUB 46:G0T0 64 

46 caractere=LEN!titre«) 

47 pixel=caractere+8 

48 IF t=0 THEN 51 

49 x=(646-caractere*32)/2 

50 GOTO 52 

51 x=(639-caractere*32)/2 

52 PEN 2:L0CATE l.ilPRINT titreî;:PEN 1 

53 tx=x:y2=39S 

54 FOR i=l TO 8 

55 x2=0 

56 FOR j=l TO pixel 
57-IF TEST(x2.y2)=2 THEN PLOT s,y,a:PLOT 

x,y-2:PL0T x+2,y:PL0T xt2,y-2 

58 x=x+4:x2=x2+2 

59 NEXT j 

60 y=y-4:y2=y2-2:x=tx 
41 NEXT i 

62 LOCATE *l,l,l:PRINT«l,SPACE*(caracter 
el 

63 RETURN 

64 LOCATE 12, 13:PRINT"auteur G. Goument 

65 PEN 2:L0CATE 5, 20:PRIhfT - patiente!.... 
chargement en cours" 

66 INK 0,O:INK 1,2:INK 2.25:INK 3,11:SPE 
EU KEY 20,1 
47 RUN "casel" 



1 ' «*»*♦*******#*****##*****#«*#**« 

3 ' REGLES DU JEU. 

4 ' 

5 ' i mi <i»iiiiii m i mixm «iHH««HHt 

6 MODE 1:B0«DER 13:INK 0,13:INK 1,4;PAPE 
R-0:ar=0:SPEED KEY 20,1:PEN 1 

7 LOCATE 14,3:PRINT"CASE-BRI0UES':LOCATE 
13, 4: PRINT"»*************": PRINT: PRINT: 

PRINT'Le bot ou jeu est le suivant, arri 
ver lepremier dans la case centrale. ":PR 
INTiPRINT 

8 PRINT' Vous allez affronter l'ordinate 



ur, roaisrassurez-vous, si vous ne parven 
ez pas le battre, il adaptera son nivea 
u de jeuau vtre.":PRlNT:PRINT:PRINT"Son 
rie n'est pas de vous dcDurager !!':G 
OSUB 18 

9 LOCATE l,4:PRINT"Le premier joueur est 
tir au sort, pourtoute nouvelle partie 

, c'est le perdant de la prcdente qui 
commencera. ' :PRINT:PRINT 

10 PRINT' Vous disposez d'une boite perc 
e de 25 cases dans lesquelles vous pla 

tour de rie des briques de di 
valeurs. ":PRINT 



cerez 
ffrentes 
iPRINT 
11 PRINT" 
rouges. ' 



Vous jouez avec trois brigues 
:PRINT:PRINT' Aucune limitation 
dans la guantit. "iGOSUE 1B 

12 PRINT"PLACEMENT DES ERIÛUES:' rPRINT"* 
*********************' :PRINT:PRINT"TOUCH 
ES 1.2 00 3 selon la valeur jouer':PR 
NT:PRINT'Les brigues sont places automa 
tiquementdans les cases en fonction de 

la valeurde la brigue adverse jgue prc 
demment." 

13 FRINT;PRINT"La brigue 1 est joue, la 
brigue adversese place dans la case sui 

vante. ":PRINT:PRlNT"La brique 2 est pos 
e, la brique adversesera joue deux case 
s plus lDin.":PRINT:PRINT"Idem avec la b 
nque 3." 

14 GOSUB 18 

15 LOCATE l,5:PRINT"Dans la dernire cas 
e o celle du centreon ne peut jouer que 

la brique 1 et dansl'avant dernire la 
brique i ou la 2. ' iPRINTiPRINT 

16 PRINT'Il ne vdus reste qu' remplir 1 
es cases avec astuce, en plaant la bonn 

e brique au bon endroit, pgur remporter 
la partie" :PRINT:FRINT:PRINT:PRINT" 

BONNE CHANCE' :G0SUB lBlGOTO 22 

17 LOCATE 31,24:PEN OlPRINT CHRJI143) 

18 LOCATE 30,24iPEN l:PRINT"lS)uite ->' 

19 touche«=INKEYf:IF touchet=" THEN 17 

20 IF touche$="S" OR touche$="5" THEN CL 
S: RETURN 

21 GOTO 19 

22 '********************************** 

23 ' 

24 ' initialisation des variables et 

25 ' redéfinition des caractères 

26 ■ 

27 ' ********************************** 

28 MODE 0:B0RDER 14:INK 0,14lPRINT CHR*I 
22)+CHR«(l):RAND0MIZE TIMEiSCOREl=OiSC0R 
E2=0:PARTIE=0:DIF=13:CHOIX=INT<RND*201*1 

29 IF CHOIXMO THEN J0UEUR=2 ELSE JOUEUR 

=r 

30 a$="P A T I E N T E Z':b*="E R R E U 
R'.-ENV l, = 10.50O0:N0TE=32 

31 FOR i=235 TO 255iREAD 5l,s2,s3,s4,s5, 
56,s7,s8:SYMBCiL i,sl,s2,53,s4,s5,s4,s7,s 
8:NEXT 

32 DATA 480,440, 420, 410, 48, 44, 42,41, D,0, 
0,418,442,424,41B,4ff,430,490,4aO,4c8,4c 
8, 4a0,490,480,4ff, 418,424, 4*2, 418, 0,D,0, 
401, 409, 405, 413, 413, 405, 409, 401, 48c, 452, 
402, 459,499, 482,444,419, 431, 44a, 440,49a, 
499,441,466,498,419,466,482,499,459,402, 
452,48c 

33 DATA 498, 466, 4*1, 499,49a, 440,44a, 431, 



SbM20,aeO,saO,S81,iB3,a87,SBl,4fd,S04. 
S07,501,SBl,SBl,a8t,4Bl,S81,S8I,SBl,S87, 
aB0,4eO,S20,8bf.l81,SBl,S81,8el,S01,S07, 
a04,afd,&bf,S20,leO,lBO,«83,SB6,S80,a81, 
Sfd, 404,407, SOI, Sel, 461, S61, Set 

34 DATA 483,486,SB6,4B7,S80,Se0,S20,4bf, 
40t.S01,S21,6<ïl,S01,4O7,S04,4fd,4bf,S2O. 
Se0,SB0,SB3.SB4,480,481,Sfd,S04,407,6Ol, 
Scl.S6I,S61,Scl,S80,S8fJ,S86,4B3,S80,4e0. 
S20.Sbf,S61,S61,S61, Sel, 401,407, 404, Sfd 

35 *********************************** 



37 : 



dessin et affichages divers 



39 ' ********************************** 

40 FOR 1=0 TO 14ilNK I,14:NEXT:PAPER 

41 1NK 15.4,14iPEN 15:F0R i=l TO LEN(a«l 
iLOCATE l.llPRINT HIDSIa», 1, DiNEXT 

42 a«=STRING!il9,CHR«U43))iPEN 1 

43 FOR 1=1 TO 24:L0CATE 2,iiPRINT aJiNEX 
T 

44 FOR i=l TO 18iPEN D:L0CATE 2,i:PRINT 
CHR«(143);CHRS(I43)iL0CATE 19,liPRINT CH 
R«(143);CHR«ll43)iNEXT 

45 G05UB B5 

44 LOCATE 2,24:PEN Q:PRINT CHR«(215) 

47 FOR i=l TO 6lflEAD y,cl,c2ïL0CATE 2,y: 
PEN 4iPRINT CHIMI cl) iLOCATE 2,yiFEN 3:?S 
INT CHR«(c2)iNEXT 

48 DATA 24,213,221, 23,143,2B7,22,143,2D7 
,21,143,207,20,143,207,19,143,207 

49 FOR i=l TO 3:READ x,cl,c2iL0CATE x.!9 
iPEN 2:PRINT CHR«(cl) iLOCATE x,19lPEN 3: 
PRINT CHR«(c2)lNEXT 

50 DATA 2,213,221,3,143,207,4,143,207 

51 LOCATE 4,19:PEN 4:PRINT CHS«l213)iL0C 
ATE 4,19:PEN 3iPRINT CHMI221) 

52 FOR s=l TO iBiLOCATE 4.y:PEN 4:PSINT 
CHRt(1431:L0CATE 4,uiPEN 3:PRINT CKR«(20 
7):NEXT 

53 FOR i=l TO 5:READ x,cl,c2:L0CATE x,li 
PEN 2iPRINT CHRtlclIlLOCATE x+10,l:PRINT 

CHRSIclliLOCATE s.liPEN 3:PR1NT CHR«fc2 
):LOCATE x*lO,UPRINT CHR«(c2) iNEXT 

54 DATA 4,213,221,5,143,207,6,143,207,7, 
143,207,8,143,207 

55 FOR i=9 TO 14lPEN 2:L0CATE i,l:PRINT 
CHRtl 143) iLOCATE i , 1 : PEN 3iPRlNT CHRÏI20 
7):NEXT 

56 PEN OiLOCATE 18,1:PRINT CHRSI213I 

57 LOCATE 19,19:PEN 2:PRINT CHfl«(143)iCH 
R)( 1431 iLOCATE 19,19]PEN 3:PRINT CHR»I20 
7) ;CHRt(207) iLOCATE 20,19:PEN OiPRINT CH 
Rtl213) 

58 LOCATE 4,21:PEN DiPRINT STRIN6t(16,CH 
Rtl 1431) iLOCATE 4,22:PRINT STRINSt<16,CH 
R«(143)):L0CATE 4,23iPRINT STRINGS(16,CH 
RJU431I iLOCATE 4,24lPEN 2iPRINT STRING» 
(16, CHRtl 143)) iLOCATE 4,24:PEN 3iPRINT S 
TRING*llâ,CHH$l2071) 

59 LOCATE 19,21:PEN 4:PRINT CHR»U43>iLO 
CATE 19,22:PRINT CHR«I 1431 iLOCATE 19,23: 
PRINT CHRtl 143) iLOCATE 19,24lPRINT CHR«( 
213):PEN 3iL0CATE 19,24lPRINT CHR«(22i) : 
LOCATE 19,23:PRINT CHR«i 207) iLOCATE 19,2 
2;PRINT CHRJ12G7) iLOCATE 19,21:PR1NT CHR 
«(207) 

60 FOR 1=1 TO 12;READ x,g,c:PEN 7:L0CATE 
s,yiPRINT CHRSIcliNEXT 

61 DATA 10,12,240,11,12,236,12,12,236,13 



, 12, 241, 13, 13,237, 13, 14, 237, 13, 15, 243, 12 y 
,15, 238, 11, 15, 23B, 10,15,242, 10, 14,239, 10 
,13,239 

62 LOCATE 5,20:PEN 5lPRINT , CPC464 1 iL0CAT 
E 13.20:PEN oiPRINT'JOUEUR'iPEN 5iL0CATE 

6, 3lP»lNT'00" iLOCATE 16,3:PEN 6lPRINT'0 
0" 

63 PEN 14:L0CATE 9,2iPRINT'pai-tie"iL0CAT 
E 9,4iPRINT , gagne' 

64 a«=STRING«(6,CHR«(1431) 

65 LOCATE 5,23:PEN lOiPRINT a«:LOCATE 5. 
24:PRINT aJiLOCATE 13,23:PEN 12:PRINT aî 
iLOCATE 13,24:PRINT a« 

66 al«=CHR«(244)*CHR«(245)+CHR*(248l+CHR 
S(249)*CHR«(252H-CHRS(253) 

67 a2t=CHRt 1 246 ) +CHRS ( 247 ) +CHR* ( 250 1 *CHR 
«(251)+CHR*(254>+CHR«(255> 

6B LOCATE 5,23:PEN 9:PRINT al«:LOCATE 5, 
24lPRINT'a2«:L0CATE !3,23:PEN 1 i : PRINT a 
ISiLOCATE 13,24iPRINT a2t 

69 FOR 1=1 TO 3:READ X,Y,C:PEN 9:L0CATE 
X,YiPRINT CHRtlCliPEN IliLOCATE X+B,Y:PR 
INT CHRfICIlNEXT 

70 DATA 4,22,215,4,23,143,4,24,213 

71 LOCATE 4,22:PEN lOiPRINT CHRt(213];ST 
RINGt(5,CHR«U43));CHRt!215) 

72 LOCATE 12,22iPEN 12:PRINT CHRt(213l;5 
TRINGK5, CHRtl 143) );CH«t(215) 

73 INK 15,14:F0R 1=1 TO IBiLOCATE 1,I:PE 
N OiPRINT CHRtl 143) iNEXT 

74 FOR i=l TO 15:READ CilNK i,c:NEXTiDAT 
A 12, lfl, 13, 7,2,6, 17,25, 1,2,3,6,4,12, 14 

75 PEN 91L0CATE 6,22iPRINT CHR»(235)lL0C 
ATE B,22lPRINT CHRSI235) 

76 PEN IliLOCATE 14,22iPRINT CHR«1235):L 
OCATE 16,22iPRINT CHR«(235) 

77 FOR 1=1 TO LENIbtliPEN 15iL0CATE 20,i 
iPRINT MDtlbt,i,l)lNEXT 

78 SOTO 144 

79 ' ********************************** 

80 ' 

Bl ' mise en place des 25 cases de jeu 

B2 ' et de la ,case centrale 

B3 ' 

84 ' ********************************** 

B5 FOR «=6 TO 16 STEP 2 

B6 SOUND 1, NOTE, 5, 5 

87 LOCATE x,5:PEN OiPRINT CHR1U43) 

BB LOCATE x+l,5iPEN 4:PRINT CHRJU43) 

B9 LOCATE x*l,5iPEN 3:PRINT CHR«(2D7) 

90 LOCATE x,6iPEN 2iPRINT CHRtl 143) ;CHRS 
1143) 

91 LOCATE x«l,6iPEN 4:PRINT CHRt(213) 

92 LOCATE x,6lPEN 3iPRINT CHR) 1 207 1 ; CHR» 
(207) 

93 N0TE=N0TE+1 

94 NEXT 

95 FOR y= 5. TO 17 STEP 2 

96 SOUND 1,N0TE,5,5 

97 LOCATE 16,y:PEN OiPRINT CKRJI143) 

98 LOCATE 17,u:PEN 4iPRINT CHRSI143) 

99 LOCATE 17,giPEN 3:P«INT CHR»(207I 

100 LOCATE 17,y*IiPEN 4:PRINT CHRt(143l 

101 LOCATE 16,u+IiPEN 2iPRINT CHR1H43); 
CHRSI215) 

102 LOCATE 16,y*llPEN 3iPRINT CHRSI207I; 
CHRt(207) 

103 N0TE=N0TE*1 

104 NEXT 

105 FOR x=[5 TO 7 STEP-2 



1D6 SOUND 1, NOTE, 5, 5 

107 LOCATE x,17iPEN 4:PR1NT CHRSI143) 

10B LOCATE x-l,17iPEN BiPRINT CHRt(143) 

109 LOCATE x,17lPEN 3iPRINT CHRSI207) 

110 LOCATE x-l,18iPEN 2:PRINT CHRÏI143); 
CHRt(143) 

111 LOCATE *,18iPEN 4:PRINT CHR«(213) 

112 LOCATE x-l,I8iPEN 3iPRINT CHRX207); 
CHR» 1207) 

113 N0TE=N0TE+1 

114 NEXT 

115 FOR u=16 TO 10 STEP-2 

116 SOUND 1, NOTE, 5, 5 

117 LOCATE 6,yiPEN 2iPRINT CHR* ( 1 43 ) ; CHR 
1(143) 

UB LOCATE 7,u:PEN 4:PRINT CHR«(213) 

119 LOCATE 6-yiPEN 3lPRINT CHRJ1207) ;CHR 
«12071 

120 LOCATE 6,g-liPEN OiPRINT CHR«il43) 

121 LOCATE 7,u-liPEN 4iPRINT CHR»(143i 

122 LOCATE 7,g-llPEN 3:PRINT CHR1I207) 

123 NOTE=NOTEH 

124 NEXT 

125 FOR x=8 TO 12 STEP 2 

126 SOUND 1, NOTE, 5, 5 

127 LOCATE x,9lPEN OiPRINT CHRSI143) 
12B LOCATE x+l,9iPEN 4iPRINT CHRÎI143) 

129 LOCATE xtl.9iPEN 3iPRINT CHRSI207! 

130 LOCATE x.lOiPEN 2iPRINT CHR«ll43)lCH 
MI143) 

131 LOCATE stl.lOiPEN 4iPRINT CHR»(213) 

132 LOCATE X.lOiPEN SiPRINT CHR«(207)lCH 
RK207) 

133 N0TE=N0TE*1 

134 NEXT 

135 LOCATE H,13lPEN OiPRINT CHR«(143):L 
OCATE 12, 13iPEN 4iPRINT CHR((1431lL0CATE 

12,13iPEN 3iPRINT CHR« 1207) iLOCATE 11,1 
4lPEN 2lPRINT CHRtl 143) ; CHR$I 1A3) 

136 LOCATE 12,14iPEN 4lPRINT CHR«(2l3)iL 
OCATE ll,14iPE» 31PRINT CHR«(207I ;CHR«(2 
07) 

137 RETURN 

138 ' ********************************* 



irisation des positions de 
chaque case de jeu 




140 ' 

141 ' 

142 ' 

143 ' ********************************* 

144 CASE=1 

145 CH0IX=15i60SUB 277 

146 RESTORE 150 

147 FOR 1=1 TO 26-CASE 

148 READ C0L.LI6 

149 NEXT 

150 DATA 11,13,12,9,1D,9,B,9,6,9,6,U,6, 
13,6,15,6,17,8,17,10,17,12,17,14,17,16,1 
7,16,15,16,13,16,11,16,9,16,7,16,5,14,5, 
12,5,10,5,8,5,6,5 

151 '«*****«*«*****«*****«******♦*" 

152 ' 
153 
154 

155 ' 

1 56 ' ********************************* 

157 IF jOUEUR=l THEN INK 5,12,2lINK 6,6l 
SOUND 1,16, 10,0, llFOR D=l TO IDOOiNEXTiG 
OTO 159 

15B IF jOUEUR=2 THEN INK 6, 12,6iINK 5,2: 
SOUND 1,64,10,0,1 



clignotement des couleurs 
selon le tour de jeu 
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159 LOCATE 5,B:PEN liPRINT FRET 

160 IF J0UEU«=2 THEN 185 

lui ' ******#«*♦***«***«#♦**««**«* 

142 ' 

163 ' jeu de l'ordinateur 

16* ' 

165 '******#**#**«**#«♦****«********+ 

166 JOUEUfcS 

167 IF CASE>22 THEN 170 

168 IF CASE<DIF THEN 172 

169 IF CASE02 THEN 171 

170 ON 26-CASE GOTO 179,177,177,178.17". 
172, 177, 178, 179, 172, 177,178, 179, 172 

171 ON 12-CASE GOTO 177,178,179,172.177. 
17B, 179, 172, 177, 178, 179 

172 MAR0UE=INT(KND*3HÎ 

173 IF MAR0UE=1 THEN CARACTEEE=244 : COULE 
UR1=9:COULEUR2=10:W1L£UR=49:60TO 196 

174 IF HAR0UE=2 THEN CARACTERE=246:C0ULE 
UR1=9:COULEU«2=10:VALEUR=50:GOTO 196 

175 IF HARQUE=3 THEN CARACTERE=252: COULE 
UR1=9:COULEUR2=10:VALEUR=51:GOTO 196 

176 SOTO 172 

177 HARQUE=!:GOTO 173 

178 NARQUE=2:60TO 174 

179 MAR0UE=3:G0TO 175 

18D ' K»«HHHHW#«*«*w******iHHf#*» 

181 ' 

182 ' jeu de son partenaire 
133 ' 

185 J0UEUR»1 

186 TOUCHE«=INKEY$:IF TOUCHE«=_" THEN 18 
6 

187 IF TOUCHE»=T THEN CARACTERE=244:C0 
ULEUR1=11:C0UlEUR2=12:VALEUR=49:G0T0 196 

180 IF T0UCHES= - 2 - THEN CA8ACTERE=248:C0 
ULEURl=ll:COULEUR2=!2:VAtBJR=50:GOTO 196 
18? IF T0UCHE(="3 - THEN CARACTERE=252:C0 
ULEUR1=11:C0ULEUR2=12:VAL£UR=5! 



«M***************************** 



affichage des briques dans les 
cases . sert aux deux joueurs 



190 
191 
192 
193 

194 ' 

195 'M******************************* 

196 IF CASE=24 AND VALEUR>49 THEN GOSUB 
257:60T0 186 

197 IF CASE=23 AND VALEUR>50 THEN GOSUB 
257:G0T0 186 

198 IF CASE=25 THEN GOSUB 265:CARACTERE= 
240 

199 LOCATE COL,LIG:PEN C0ULEUR2:P«INT CH 
R«I143);CHR«I143):L0CATE COL,LIS:PEN COU 
LEUR1:?RINT CHR*ICARACTERE);CHR«(CARACTE 
RE+1! 

200 LOCATE C0L,LIG+1:PE» C0ULEUR2:PRINT 
CHRS(143):CHRS(143):L0CATE C0L.LI6+1:PEN 

COULEURhPRINT CHR»(CARACTERE*2):CHR»IC 
ARACTERE«3) 
2D1 IF CASE=25 THEN 221 

202 ' 

203 ; 

204 ' 

205 ' 

206 ' 

207 ' 






mise a jour des positions après 
chaque tour de jeu 



'♦«««il************************** 

208 CASE=CASE«ALEUR-48 

209 IF CA5E=24 THEN 212 

210 IF CASE=23 THEN 1 



[WVVv! 

211 GOTO 146 ^ 



212 CH0IX=11 

213 SOTO 146 

214 CHOIX=13 

215 GOTO 146 

216 ; 

217 ' 



affichage score du joueur 



21B ' 

219 ' 

220 ' **+***♦*+***********+*«**»**##** 

221 IF J0UEUR=2 THEN 233 

222 5C0RE2=SC0SE2tl:PARTIE=PARTIE*l 

223 DIF=0IF-1 

224 IF.SC0RE2>9 THEN 226 

225 LOCATE 17,3:PEN 1:PRINT CHRJ(143):L0 
CATE 16,3:PEN 6:PRINT SCORE2:GOT0 244 

226 LOCATE 16,3iPEN 1:PRINT CHR«(143):CH 
RS(143):L0CATE 15,3:PEN 6:PRINT SC0RE2 

227 GOTO 244 

228 ' «m****************************** 

229 ' 

230 ' affichaqe score de l'ordinateur 

231 ' 

233 5C0RE1=SC0RE1+1:PARTIE=PARTIE+1 

234 DIF=DIF+1 

235 IF SC0RE1J9 THEN 237 

236 LOCATE 7,3:PEN 1:PRINT CHR$I143I:L0C 
ATE 6,3:PEN 5:PRINT SCORELGOTO 244 

237 LOCATE 6,3:PEN 1:PRINT CHR«(143);CHR 
«I143):L0CATE 5,3:PEN 5:PRINT SCOflEl 

239 ' 

~24Q ' attente d'une- touche 

nouvelle partie ou fin du jeu 



242 

243 ' «+****««*#*******«*****#****#*#* 

244 INK 5,12:INK 6,12:PEN 14:L0CATE 5,19 
:PRINT'une autre o/n" 

245 TOUCHE»=INKEY«:IF T0UCHEI=" THEN' 24 
4 

246 IF TOUCHES='0 - OR TOUCHE»='o" THEN N 
0TE=32:INK 14,12:INK 5,2:INK 6,6:L0CATE 
5,19:PEN 1:PRINT STRING«(14,CHR«(143)kG 
OSUB 85: GOTO 144 

247 IF TOUCHE«="N" OR T0UCHE«="n" THEN 2 
48 ELSE 245 

248 HODE llAR=0:INK D,0:INK l,6iPRINTN0 
US VENONS DE JOUER '[PARTIE;' PARTIES'lP 
RINT:PRINTrPRINTiPRINT"RESULTATS l'iPRIN 
T'**««f*t«':PRINT:PRINT:PRINT'ORDINAT 
EUR i ';SC0RE1:PRINT:PRINT:PRINT' JOUEU 
R i ';SC0RE2:GOSUB 277 

249 MODE IlEORDER 1 : INK 0,1:INK l,24i?AP 
ER 0:PEN 1:END 

250 BORDER 1:INK 0,1:INK 1,24:PEN llEND 






■ de valeurs sans les deux 
dernières cases 



251 ' 

252 : 

253 ' 

254 ' 

255 ' 

256 ' ******#*****♦*#****************** 

257 INK 15.7,14 

258 FOR 1=1 TO 2:S0UND 1,940, 100, 15:NEXT 
:F0R 1=1 TO 1500:NEXT:INK 15,14:RETURN 

259 ' ««M***************************** 

260 ' 

261 ' partie gagnée par l'ordinateur 

262 ' ou le joueur 



accompagnement musical 



263 ' 

264 ' H****M««*1HHHHHM**#*<HHHH*M*« 

265 X=ll:Y=13:CARACTERE=24Q:N0TEl=14:N0T 
E2=271:K=255:IF JOUEUfl=2 THEN INK 14,2,1 
2 aSE M 14,6,12 

266 FOR 1=1 TO 255 

267 SOUND l,N0TEl,l,15jP0KE SB2BF.I:L0CA 
TE X,Y:PRINT CHR»(CARACTERE);CHR«(CARACT 
ERE+1 ) 

268 SOUND l.NOTE2,l,15:POKE SB2BF,K:L0CA 
TE X.Y+liPRINT CHRJ(CARACTER£+2):CHR«(CA 
RACTERE+3) 

- 269 K=K-l:N0TEl=N0TEl+l:NOTE2=N0TE2-l 

270 NEXT 

271 RETURN 

272 ' 

273 ' 

274 ' 

275 ' 

276 ' M******************************** 

277 EN" l.=l,1000O:ENV 2, =8, 1200 

278 RESTORE 302:F0R 1=1 TO 4:READ n,d:SO 
UND i.I250DO/n,100«d,,hIE AR=1 THEN 260 

ELSE SOUND 2, 125000/130.B13. lDO»d.,l 

279 IF ar=0 THEN 281 

2B0 SOUND 2.15625/n,!00«d,,2 

281 NEXT 

282 RESTORE 303iFOR i=l TO 81READ n,d:S0 
UND l,125000/n,100*d,,l:IF ar=l THEN 204 

ELSE SOUND 2, 125000/195. 998, lD0«d,,l 
263 IF ar=0 THEN 285 
2B4 SOUND 2,15625/n,100«d. ,2 

285 NEXT 

286 RESTORE 3O4:F0R i=l TO 10:SEAD n,d:S 
OUND l,125000/n,100*d,,l:IF ar=l THEN 28 
8 ELSE SOUND 2,125000/130.813.100«d.,l 

287 IF ar=0 THEN 289 

2B8 SOUND 2,15625/n,lD0«d,,2 

269 NEXT 

290 RESTORE 3O5:F0R i=l TO 8:READ n,d:S0 
UND l,125000/n,IOO«d,,l;IF ar=l THEN 292 

ELSE SOUND 2,125000/195.996, 100«d, ,1 

291 IF ar=0 THEN 293 

292 SOUND 2,15625/n,100«d,,2 

293 NEXT 

294 RESTORE 3O6:F0R i=l TO j:READ n,d:S0 
UND l,125000/n,100*d,,l:IF ar=l THEN 296 

ELSE SOUND 2, 125000/130.813, 100*d,,l 

295 IF- ar=0 THEN 297 

296 SOUND 2,15625/n,100«d,,2 

297 NEXT 

296 IF ar=0 THEN ar=liG0T0 300 

299 IF ar=l THEN FOR 1=1 TO 3000:NEXT:RE 
TURN 

300 SOUND 1,0,20,0:SOUND 2,D,20,0:S0UND 
4,0,190,0 

301- GOTO 278 

302 DATA 659.255, .4, 783. 991, .4, 523. 251,. 

4, 659.255,. 4 

3D3 DATA 659. 255,. 2, 5B7. 330, .2.69B.457.. 

9,587. 330,. 4, 698. 457,. 2, 698. 457, .2,493.8 

63,. 4,567.330,. 4 

304 DATA 5B7.330,. 2.523. 251, .2,659. 255,. 
9, 659. 255,. 2, 659.255, .2, 783. 991,. 2, 783. 9 
91,. 2, 523. 251,. 4, 659. 255, .2, 659.255,. 2 

305 DATA 659. 255,. 2.5B7. 330, .2,698.457,. 
9,587. 330,. 4, 698. 457,. 4, 698. 457, .4,493.8 
63,. 4,567.330,. 4 

304 DATA 587. 330, .2, 523. 251, .2, 523. 251, 
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DOLLARS ET SN MF 



Christian MATHIS 




■■-.■■■:■ "■■'. '■: 



»liiiill||^ 

!lilÉ^ jlHiI|j|| 

i j liUH fflO HUUEA nfl|»Iifjiiiii| 




Les temps sont durs, il vous 
faut gagner votre vie, et vous 
avez trouvé un château plein 
de dollars. 

Mais un affreux monstre ne l'entend pas 
de cette oreille, et ii fera tout pour vous 
empêcher d'attraper les précieux billets 
verts. Oh ! Mais attendez, ce n'est pas 
l'unique problème. La nature'a été cruelle 
avec vous, mais vous n'êtes pas rancu- 
nier, après tout, plus c'est petit, plus 
c'est mignon. Manque de chance, les 
dollars sont suspendus au plafond. Il 
vous faudra sauter pour les attraper. 
Pour vous débarrasser du monstre, deux 
solutions se présentent à vous : jouer 
avec les échelles ou creuser des trous 
dans le plancher afin d'enterrer votre 
dangereux poursuivant. Mais, je ne vous 
en dis pas plus, le mode d'emploi est 
inclus dans ie programme. Tapez-le, vous 
ne serez pas déçu. 



9m zt£ 



*SMl 



00 



Utilisez le serveur MHZ 

24 h/24 à votre disposition sur Téiètei 3 

Composez le 3615 
puis tapez le code MHZ 



Au menu : 

- Les dernières nouvelles 

- Les petrtes annonces électronique et informatique 

- Les sommaires de vos journaux 

- Et une boite aux lettres sérieuse et personnalisée qui 
vous permettra de poser vos questions à la rédaction. 



Votfç Avez- W «es tciôrçll 




La disquette du CPC . 
Hors-Série n° 2 
est DI5POHIBLE 

Si vous n'avez pas le temps de tout taper ou si vous 
avez des ampoules au bout des doigts après avoir 
entré un kilo-octet, commandez la disquette HS 2 qui 
contient tous les programmes du présent numéro plus 
un programme inédit. Utilisez le bon de commande 
figurant en dernière page. 
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10 ' 

20 ' DOLLARS par C.MATMS « CPC 

30 ' 

40 MODE 0:BORDER 

50 INK 0,0: INK 1.20:1» 2,15:INK 3.I-5MN 

K 4,7:INK 5,1B:INK 6,10:INK 7,26:INK B,6 

,15 

60 GOSUJ 314D 

70 DIB taZi2d. 2A1 

80 SYMBOL AFTER 2DD 

90 SVKEOL 201,24,60,60,24,24.60,126.255 

100 SYMBOL 203, 0,D, 0,0, 0,0, 0,0 

110 SYMBOL 204,66,36.24,126,219,255,102, 

24 

120 SYMBOL 205,0,D,0,233,65, 93,85,65 

130 SYMBOL 206,0,0.0.144. 82, 20B,B2, 152 

140 SYMBOL 230,0,0,0,23a,164,22B,132,132 

150 SYMBOL 231,0,0,0.224.132,224,36,224 

16D SYMBOL 253, 0,D, 0,171, 170,171, 170, 75 

170 SYMBOL 254,0,0,0,1B4,34,184,10.1B4 

180 SYMBOL 255,129,255,129,129,129,255,1 

29,129 

190 echI^CHRSI255) :tbmb*=CHRi(201 1 :mi=C 

H»i(204)iYiE!=CHR!(253)tCHRS(254):tahlS= 

CHRi(205)+CHR*12061:pt$=CHRÎ(230)+CHRÎ(2 

311 

200 MEILLEURSCORE=0 

210 tableau=l:VIE=4:SCORE=0 

22D ' 

230 'le tableau 

240 ' 

250 DATA 36,36,0,36,36,36,36,36,36,36,36 

,36,36,36,0,36,36,36.36,211 

260 DATA 0,D, 0,0,0, 0,0, 0,0, 0,0, 0,0,0, 0,0 

,0,0,0,211 

270 DATA 0, 0,255, 0,0, D, 0,0,0, 0,0, 0,0,0, 2 

55,0,0,0,0,211 

280 DATA 143,143,255,143,143,143,143,143 

,143,143,143,143,143,143,255,143,143,143 

,143,211 

290 DATA 36, 203, 255, 2D3, 36, 36, 36,36, 36,3 

6,36,36,36,203,255,203,36.0,36.211 

300 DATA 0,203, 255, 203, 0,0, 0,0, 0,D, 0,0,0 

,203,255,203,0,0,0.211 

310 DATA 0,D, 255, 0,0, 0,0, 0,0, 0,0, 0,0, 0,2 

55,0,0,255,0,211 

320 DATA-143,143,255,143,143, 143, 143, 143 

, 143, 143, 143, 143, 143, 143, 143. 143, 143, 255 

,143,211 

330 DATA 36,203,255,203.36,36,36,0,36,36 

.36,36,36,36,36,36,203.255,203,211 

34D DATA 0,203,255,203,0,0,0,0,0,0,0,0,0 

,0,0,0,203,255,203,211 

350 DATA 0,0, 255, 0,0,0, 0,255, 0,0,0,0,D,0 

,0,0,0,255,0,211 

360 DATA 143,143,255,143,143,143,143,255 

, 143, 143, 143, 143, 143, 143, 143, 143, 143, 143 

,143,211 

370 DATA 0,203,255,203,36,36,203,255,203 

,36,36,36,36,36,36,36,0,36,36,211 

3B0 DATA 0,203,255,203,0,0,203,255,203,0 



,0,0,0,0,0,0,0,0,0,211 

390 DATA 0, 0,255, 0,D,0,D, 255, 0,0, 0,0, 0,0 

,0,0,255,0,0,211 

400 DATA 143,143,143,143,143,143,143,255 

, 143, 143, 143, 143, 143, 143, 143, 143,255, 143 

,143,211 

410 DATA 36,36,36,0,36,36,203,255,203,36 

,36,36,36,36.36,203,255,203,36,211 

420 DATA 0,0,0.0,0, 0,203, 255, 203, 0,D,0,0 

.0,0,203,255.203,0,211 

430 DATA 0,0,0,255,0,0,0,255,0,0,0,0,0,0 

,0,0,255,0,0.211 

440 DATA 143,143,143,255,143,143,143,143 

, 143, 143, 143, 143, 143,143, 143, 143,255, 143 

,143,211 

450 DATA 36,36,203,255,203,36,36,36,36,3 

6,36,36,36,36,36,203,255,203,36,211 

46D DATA 0,0,203,255,203,0,0,0,0,0,0,0,0 

,0,0.203,255,203,0,211 

470 DATA 0,0,0,255,0,0,0,0,0,0,0,0,0,0,0 

,0,255,0,0,211 

480 DATA 20B.20B, 208, 208, 208,208, 208,208 

,208,208,208,20B,208,208,20B,20B,20B,208 

,200,211 

490 ' 

500 '2e tableau 

510 ' 

520 DATA 36,36,36,36,0,36,36,36,36,36,36 

,36,36,36,0,36,36,36,36,211 

530 DATA 0, 0,0, 0,0, 0,0, D, 0,0, 0,0, 0,0,0,0 

,0,0,0,211 

540 DATA 0, 0, 0,0, 255, 0,0,0,0,0,0, 0,0,0,2 

55,0,0,0,0,211 

550 DATA 143,143,143,143,255,143,143,143 

, 143, 143, 143, 143, 143, 143,255, 143, 143, 143 

,143,211 

560 DATA 36,36,36,203,255,203,36,36,36,3 

6,36,36,36,203,255,203,36,0,36,211 

570 DATA 0,0,D,203,255,203,0,0,0,0,0,D,0 

,203,255,203,0,0,0,211 

580 DATA 0,0, 0,0,255, D, 0,0, 0,0,0, 0,0,0,2 

55,0,0,255,0,211 

590 DATA 143,143,143,143,255,143,143,143 

, 143, 143, 143, 143, 143, 143, 143, 143, 143,255 

,143,211 

600 DATA 36,36,36,203,255,203,36,36,36,3 

6,0,36,36,36,36,36,203,255,203,211 

610 DATA 0,0,D,203,255, 203,0,203, 0,0,0,0 

,0,0,0,0,203,255,203,211 

620 DATA 0, 0,0,0, 255, D,D, 0,0,0, 255, 0,D,D 

,0,0,0,255,0,211 

630 DATA 143,143,143,143,143,143,143,143 

, 143, 143,255, 143, 143, 143, 143, 143, 143,255 

,143,211 

640 DATA 0,0,D,0,36,36,36,36,36,203,255, 

203,36,36,36,36,203.255,203,211 

650 DATA 0, 0,0,D,0,0,D,D, 0,203, 255, 203,D 

,0,0,0,203,255,203,211 

660 DATA 0, D, 0, 0,0, 0,0,0, 0,0, 255, D, 0,0,0 

,0,0,255,0,211 

67D DATA 143,143,143,143,143,143,143,143 

, 143, 143,255, 143, 143, 143, 143, 143, 143, 143 

,143,211 

680 DATA 36,36,36,0,36,36,36,36,36,203,2 

55,203,0,36,36,36,36,36,36,211 

690 DATA 0,0,0,0,0,0,0,0,0,203,255,203,0 

,0,0,D, 0,0, 0,211 

700 DATA 0,0,0,255, 0,0,D,0,0,0,255,0,255 




,0,0,0,0.0,0,211 

710 DATA 143,143,143,255,143,143,143,143 

,143, 143, 143, 143,255, 143, 143, 143, 143, 143 

,143,211 

720 DATA 36,36,203,255,203,36,36,36,36,3 

6,36,203,255,203,36,36,36,36,36,211 

730 DATA 0,D,203,255,203,0,0,0,0,0,0,2D3 

,255,203.0,0,0,0,0,211 

740 DATA 0, 0,0, 255, 0,0,0,0,0,0,0, 0,255,0 

,0,0,0,0,0.211 

750 DATA 208,208,208,208,208,208,208,208 

, 208, 208, 208,208, 2DB, 208. 208,208, 208, 208 

,208,211 

760 ' 

770 '3e TABLEAU 

780 ' 

790 DATA 36,36,36,36,36,36,36,0,36,36,36 

,0,36,36,36,36,36,36,36.211 

800 DATA 0,0,0,0,0,0,D,0,0,D,0,0,0,D,0,0 

,0,0,0,211 

810 DATA 0,D,D, 0,0,0,0,255, 0,0, 0,255, 0,0 

,0,0,0,0,0,211 

820 DATA 143,143,143,143,143,143,143,255 

, 143, 143, 143,255, 143, 143, 143, 143,143, 143 

,143,211 

B30 DATA 36,36,36,36,0,36,203,255,203,0, 

203,255,203,36,36,36,36,36,36,211 

B40 DATA 0,0,0,0,D,0,203,255,203,D,203,2 

55,203,0.0,0,0,0,0,211 

850 DATA 0,D, 0,0, 255, 0,0. 255, 0,255, 0,255 

,0,0,0,0,0,0,0,211 

860 DATA 143,143,143,143,255,143,143,143 

,143.255,143,143,143,143,143,143,143,143 

,143,211 

870 DATA 36,36,36,203,255,203,36,36,203, 

255,203,36,36,36,0,36,36,36,36,211 

880 DATA 0,0,0,203,255,203,0,0,203,255,2 

03,0,0,0,0,0,0,0,0,211 

890 DATA 0,0,0,0,255,0,0,0,0,255,0,0,0,0 

,255,0,0,0,0,211 

900 DATA 143,143,143,143,255,143,143,143 

,143, 143,143, 143, 143, 143,255, 143, 143,143 

,143,211 

910 DATA 0,0,0,203,255,203,36,36,36,36,3 

6,36,36,203,255,203,36,36,36,211 

920 DATA 0,D,0,2D3, 255, 203, 0,0,0,0, 0,0,0 

,203,255,203,0,0,0,211 

930 DATA 0,0,0,0,255,0,0,0,0,0,0,0,0,0,2 

55,0,0,0,0,211 

940 DATA 143,143,143,143,143,143,143,143 

, 143, 143, 143, 143, 143, 143,255, 143, 143, 143 

,143,211 

950 DATA 36,0,36,36,36,36.36,0,36,36,36, 

36,36,203,255,203,36,36,36,211 

960 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,203,2 

55,203,0,0,0,211 

97D DATA 0,255, 0,0,0,0,0,255, 0,0,0,0,0,0 

,255,0,0,0,0,211 

980 DATA 143,255,143,143,143,143,143,255 

, 143, 143, 143, 143, 143, 143, 143, 143, 143,143 

,143,211 

990 DATA 203,255,203,36,36,36,203,255,20 

3,36,36,36,36,36,36,36,36,36,36,211 

1000 DATA 203,255, 203,D,0,0,203,255,203, 

0,0,0,0,0,0,0,0,0,0,211 

1010 DATA 0,255,0,0,0,0,0,255,0,0,0,0,0, 

0,0,0,0,0,0,211 

1D2D DATA 2D8,20B,208,20B,208.208,20B,20 

î,208,208,2aB,20B,20B,208,208,20B,208,20 



0,208,211 
1030 ' 

1040 ' 4e TABLEAU 
1050 ' 

1040 DATA 34,34, 36, 34, 36, 34,36,36, 0,0,0, 
34,34,34,0,0,36,36,36,211 
1070 DATA 0,0,0,0,0, 0,0,0, 0,0, 0,0,0, 0,0, 
0,0,0,0,211 

10BD DATA 0,D,0, 0,0,0, 0,0, D, 255, 0,0, 0,0, 
255,0,0,0,0,2il 

1D90 DATA 143,143,143,143,143,143,143,14 
3, 143,255, 143, 143, 143, 143,255, 143, 143, 14 
3,143,211 

1100 DATA 36,36,36,36,34,34,34,0,203,255 
,203,34,36,203,255,203,36,36,36,211 
'1110 DATA 0,0,0,0,0,0,0,0,203,255,203,0, 
0,203,255,203,0,0,0,211 ■ 
1120 DATA 0,0,0,0,0,0,0,0,0,255, 0,D,0,0, 
255, 0,D, 0,0, 211 

1130 DATA 143,143,143,143,143,143,143,14 
3, 143,255, 143, 143, 143, 143, 143, 143, 143, 14 
3,143,211 

1140 DATA 36,34,36,36,36,36,36,0,203,255 
,203,36,36,36,34,36,36,34,34,211 
1150 DATA 0,0,0,0,0,0,0,0,203,255,203,0, 
0,0,0,0,0,0,0,211 

1140 DATA D, 0,0, 0,0,0, 0,0,0, 255, 0,0, 0,0, 
0,0,0,0,0,211 

1170 DATA 143,143,143,143,143,143,143,14 
3, 143,255, 143, 143, 143, 143, 143, 143, 143, 14 
3,143,211 

1180 DATA 0,D,0,0,34,36,36,36,203,255,20 
3,0,34,34,36,36,36,36,36,211 
1190 DATA 0,0,0,0,0,0,0,0,203,255, 203,0, 
0,0,0,0,0,0,0,211 

1200 DATA 0,0, 0, 0,0,0,0,0,0, 255,0, 0,0, D, 
0,0, 0,0,0, 211 

1210 DATA 143,143,143,143,143,143,143,14 
3, 143,255, 143, 143, 143, 143, 143, 143, 143, 14 
3,143,211 

1220 DATA 36,36,36,0,0,36,36,36,203,255, 
203,0,36,36,36,36,36,36,36,211 
1230 DATA 0,0,0,0,0,0,0,0,203,255,203,0, 
0,0,0,0,0,0,0,211 

124D DATA D, 0,0,0, 255, 0,0,0,0, 255, 0,0,0, 
0,0,0,0,0,0,211 

1250 DATA 143,143,143,143,255,143,143,14 
3, 143,255, 143, 143, 143, 143, 143, 143, 143, 14 
3,143,211 

1260 DATA 36,36,36,203,255,203,36,36,203 
,255,203,0,36,36,36,34,34,34,36,211 
1270 DATA 0,0,0,203,255,203,0,0,203,255, 
203,0,0,0,0,0,0,0,0,211 
1280 DATA 0,0,0,0, 255, 0,0, 0,0, 255, D,0,0, 
0,0,0,0,0,0,211 

1270 DATA 208,208,208,208,20B,208,20B,20 
8, 208, 208, 208, 20B.20B, 20B, 208,208, 208, 20 
B, 208, 211 
1300 BORDER 0:d=0 
1310 FOR y=l TO 24 
1320 FOR x=l TO 20 

1330 READ a:IF a=!43 OR a=2DB THEN PEN 1 
ELSE IF a=255 THEN PEN 2 ELSE IF a=36 T 
HEN PEN 3 ELSE PEN 
1340 LOCATE x,y:PRINT CHRtlal 
1350 ta7.lx,y}=a 
1340 NEXT x:NEXT y 

1370 PEN 1:L0CATE 4,25:PRINT tabl*:PE!» 2 
:LOCATE B,25:PRINT tableau 
1380 PEN 8:L0CATE 11,25: PRINT pt«:LOCATE 



I3,25:PRINT score ^ U 

1390 x=ll:y=ll :PEN 5:L0CAÎE x,y:PRINT C 
HR»(248) 

1400 »l=2:yl=15:PEN 4:L0CATE xl,yl:PR!NT 

moî 

1410 PEN 5:L0CATE 1,25:PRINT vie»:LOCATE 

3,25:PHINI vie 

1420 ifO :u=D:i=0:t=40 

1430 IF J0Y<0>=4 OR INKEYIB1=0 THEN GOSU 

B 1510 

1440 IF J0YI0>=8 OR INKEY(1)=0 THEN 60SU 

B 1400 

1450 IF J0Y(01 = 1 OR INKEY(D>=0 THEN 60SU 

B 1490i60TO 1490 

1460 IF J0YIO>=2 OR INKEY(2)=0 THEN GOBU 

B 1770:GOTO 1490 

1470 IF J0Y(0>=!6 OU INKEY<47)=0 THEN 60 

SUE 1860 

1480 GOSUB 2270 

1490 IF X=X1 AND Y=Y1 THEN GOTO 2870 

1500 GOTO 1430 

1510 ' 

1520 ' A GAUCHE 

1530 ' 

1540 IF taZ(x-l,y)=2D3 OR taZ(x-l,y)=143 

THEN RETURN 

1550 IF taZ(x,y*ll=32 THEN 2120 
1560 PEN 2:L0CATE I,Y:IF TAZIX.YIOO THE 
N PRINT refc» ELSE PRINT' ' 
1570 X=X-1:IF X<1 THEN X=l 
15B0 A«=CHR*(251):P£N 5:L0CATE X,Y:PRINT 

A« 

1590 RETURN 
1600 • 

1610 ' A DROITE 
1620 ' 
1630 IF taX(xt],y)=203 OR taZ(x*l,y)=!43 

THEN RETURN 

1440 IF taZlx,y+l)=32 THEN 2120 
1450 PEN 2:L0CATE X,Y:IF TAZIX,Y)O0 THE 
N PRINT ecM ELSE PRINT' ■ 
1460 X=X*1:!F XM9.THEN x=19 
1670 A«=CHR$( 2501: PEN 5:L0CATE X,Y:PRINT 

At 

1680 RETURN 
1690 ' 

1700 ' EN HAUT 

1710 IF taXlx,y)<>255 THEN GOSUB 1930 
1720 IF TAÏ[X,Y-IK>255 THEN RETURN 
1730 PEN 2:L0CATE X,Y:PRINT ech» 
1740 Y=Y-1 
1750 A$=CHR*( 2481: PEN 5:L0CATE X,Y:PRINT 

A« 

1760 RETURN 
1770 ' 

1780 ' EN BAS 
1790 ' 

18DD IF TAX(X,Y+1)<>255 THEN RETURN 
1810 PEN 2;L0CATE X,Y:PRINT ech» 
1B20 Y=Y+1 
1B30 A«=CHRt 1248): PEN 5:L0CATE X,Y:PRINT 

A( 

1840 RETURN 
1B50 ' 

1860 ' TROUS 
1870 ' 
1B80 IF, y=23 OR x=l OR x=l? OR îOO THEN 

RETURN 

1890 IF AS=CHR«(251) ANDIta7.(x-l,y)<>255 
AND taZlx-l,ytlk>204) THEN LOCATE X-l, 



Y*1:PRINT' , :TA7.(X-1,Y-H)=32 :z=i 

1900 IF AS=CHR»I250> AND(taZ(x*l,y)<>255 

AND taX<x*l,y*l)O204) THEN LOCATE X*l, 
Y*1:PRINT' ':TA2(Xtl,Y+l)=32::=l 
1910 «=0 
1920 RETURN 
1930 ' 
1940 ' SAUT 
1950 ' 

1960 IF TAZ1X,Y)=255 THEN RETURN 
1970 FOR 1=1 TO 2 
19B0 LOCATE X,Y:PRINT ■ ■ 
1990 Y=Y-I 

2000 PEN 5:L0CATE X,Y:PRINT CHR$I24BI 
2010 NEXT 

2020 IF TA2»,Y)=36 THEN d=d*I:SCORE=SCO 
REt5:PEN 7:L0CATE 13,25:PRINT SCORE :TAZ 
1X,Y)=0;IF d=77 THEN CLS:tableau=tableau 
+l:vie=vie+l:5a}re=5core+50:IF tableau/4 

THEN 2950 ELSE GOTO 1300 
2030 ENT 1,50,2.2:SOUND 1,70, 10, 15,0,1:E 
NT l,5O,-2,2:S0UND 1,50,20,15,0,1 
2040 FOR i=l TO 2 
2050 PEN 5:L0CATE x,y:PRW ■ 
2D60 u=y+I 

2070 LOCATE x,y:PRINT CHR«I248) 
2080 NEXT 

2090 IF taZlx,y+l 1=204 THEN GOSUB 2740 
2100 u=u+l 

2110 GOSUB 227D:RETURN 
2120 ' 

2130 ' CHUTE DANS LE TROU 
2140 ' 

2150 ENT 1,100,2,2:SOUND 1,150,30,13,0,1 
:SOUND 1,0,7,7,0,0,2 
2160 FOR 1=0 TO 3 

2170 LOCATE x,y:IF TA7.(I,Y)=36 THEN PEN 
3:PRINT CHRJ134) ELSE PRINT" * 
2180 y=y*l 
2190 LOCATE x,y:IF i=3 THEN PEN 5: PRINT 

to»bï ELSE PEN 7: PRINT CHR*(24B> 
2200 NEXT i 

2210 PEN 1:L0CATE x,u-3:PRINT CHR«(143): 
ta2lx,y-3]=143 

2220 SOUND 1,500, 100, 15:S00ND l,D,2:S0UN 
D l,5O0,75,I5;S0UND I,O,2:SO0ND 1,500,25 
,15:S0UND 1,0,2:SOUND 1,425, 75, 15:S0UND 
1,0,2:SOUND 1,450,25, 15:S0UND 1,0,2:S0UN 
D 1,450,75, 15:S0UND 1,0,2:SOUND 1,500,25 
,15:S0UND 1,0,2:S0UND 1,500, 75, I5:S0UND 
1,0,2 

2230 SOUND 1,525, 25, 15:B0UND 1,0,2:SOIM> 
1,500,100,15 
2240 FOR i=l TO 2000:NEXT i 
2250 LOCATE x,y:IF ta2(x,y)=255 THEN PRI 
NT «ch» ELSE PRINT' ' 
2260 GOTO 2930 
2270 ' 

2280 ' BESTIOLE A DROITE 
2290 ' 

2300 t=t*l:IF t<=4D THEN RETURN 
2310 IF taZlxI,yl>=204 AND »<=2 THEN GOS 
U! 2800 : RETURN 

2320 IF ta2lxl,yl-l)=255 AND yl>y THEN 6 
OSUB 2520: RETURN 

2330 IF taZ<xl,yl*l>=255 AND yl<y THEN 6 
OSUB 26D0 : RETURN 

2340 IF TA2(X1*I,Y1 1=203 OR TA21X1+1,Y1) 
=143 THEN RETURN 
2350 IF ta2<xl,yl*l)=32 THEN 2670 



2360 IF y=yl AND x<xl THEN 
2370 IF u =y l AND x>xl THEN p=0 
2300 IF p<>0 THEN 2*30 
23W PEN 2:L0CATE »1,1)1:1F taX(xl,y 1 )=25 
5 THEN PRINT ech» ELSE PRINT' ' 
2400 «l=xi*l:IF xl>19 THEN xl=I9:p=l 
2410 PEN 4:L0CATE >l,yl:PRINT «ot 
2*20 RETURN. 
2430 ' 

2440 ' BESTIOLE GAUCHE 
2450 ' 

2460 IF TA7.(X1-1,Y1 1=203 OU TAXI Xl-1, Yl ] 
=143 THEN RETURN 

2470 IF taïlil,sl*ll=32 THEN 2670 
2480 PEN 2:L0CATE xl,y[:IF taIlxl,yl)-2S 
5 THEN PRINT ech» ELSE PRINT 1 ■ 
2490 xl=xl-l:IF «Kl THEN xl=l:P=0 
2500 PEN 4:L0CATE «l,yl:PRIKT mS 
2510 RETURN 
2520 ' 

2530 ' BESTIOLE HAUT 
2540 ' 

2550 IF yl=« THEN 2600 
2560 PEN 2:L0CATE «l,ul:IF M(xl,ull=25 
5 THEN PRINT echf ELSE PRINT' ■ 
2570 y I=y t-1 

25B0 PEN 4:L0CATE xl,yl:PRINT «0* 
2590 RETURN 
2600 ' 

2610 ' BESTIOLE EN BAS 
2620 ' 

2630 PEN 2:L0CATE xl,yl:IF taï(xl,gll=25 
5 THEN PRINT ech« ELSE PRINT - ' 
2640 yl-yl-f 1 

2650 PEN 4:L0CATE xl,u|:PRINT mot 
2660 RETURN 
2670 ' 

26B0 ' BESTIOLE DANS TROU 
2690 ' 

27D0 LOCATE xl,gl:PRINT' ■ 
2710 y!=yl+l:P£N 4:L0CATE il,yl:PRINT no 
):ta7.ixl,yl)=204 
2720 SOUND 1,1000,30,7,0,0,9 
2730 RETURN 
2740 ' 

2750 ' BESTIOLE ENFERMEE 
2760 ' 
2770 m=m+l 

2780 IF .>=2 THEN PEN 1: LOCATE x,g*l:PR 
INT CHR((143):taXIx,u+ll=143 :xl=l:gl=15 
:u=0:z=0:t=D:m=OiSCORE=SCORE*l:PEN 7:L0C 
ATE 13,25:PRINT SCORE 
2790 RETURN 
2600 ' 

2810 " BESTIOLE BOUCHE TROU 
2820 ' 
2830 11=11*1 

2840 IF u<14 THEN RETURN ELSE SOUND 1,50 
,10,7,4, 1,1:S0UND 1,0, Î0,7,0,0. 1 5 : LOCATE 
xl.gkPRINT mof:taX(xl,gl)=143:gl=gl-l: 
PEN 4:L0CATE xl,yl:PRINT M*: PEN kLOCAT 
E xl,yltl:PRINT CHRJI143) 
2850 u=0:z=0 
2860 RETURN 
2B70 ' 

2880 ' bonhomme mange 
2690 ' 

2900 ENT 1, 100,2, 2:S0UND 1,100,100,15,0, 
1 
2910 LOCATE Xl.YllPEN B:PRINT nof 



2920 FOR 1=1 TO IQÛOlNEXT 

293D PEN 2:L0CATE <1,V1:IF TAÏ(X1,Y1)=25 

5 THEN PRINT echf aSE PRINT' ' 

2940 VIE=VIE-1:IF 9IE=0 THEN 2950 ELSE 6 

OTO 1390 

2950 ' 

2960 ' SCORE 

2970 ' 

2980 FOR 1=1 TO 100:NEXT:CLS 

2990 IF scbre>»eilleurscore THEN 3090 

3000 PEN B:L0CATE 4,l:PRlNT'hEILLEUR SCO 

RE' 

301O PEN 4:L0CATE 9,7iPRINT HEILLEURSCO 

RE 

3020 PEN 6:L0CATE 6,12:PRINT'V0TRE SCORE 

3030 PEN kLOCATE 9,16:PRINT SCORE 
3040 PEN 7-LOCATE 6,24:PRINT'UNE AUTRE ? 

3050 R«=INKEY« 

3060 IF R«="0' OR RS='o' OR J0VI0)=16 TH 

EN SOUND 1,50, 1D, 7: RESTORE :CLS:GÛT0 210 

3070 IF r«='n' OR rf='N" THEN ENT 1,100, 
2,2:50UND 1,100,10, 15,0,1 :r»DE 1:END 

3DB0 GOTO 3050 

3090 ' 

3100 ' HEILLEUR SCORE 

3110 ' 

3120 NEILLEURSCORE=SCORE 

3130 GOTO 3000 

3140 ' 

3150 ' PRESENTATION 

3160 ' 

3170 PEN 1 

3180 M«='C.rtATHIS' 

3190 n*='presente" 

3200 FOR 1=1 TO LENII1S) 

3210 FOR Y=15 TO 5 STEP -1 

3220 LOCATE X+6,Y:PRINT CHR$(24B1 

3230 FOR R=l TO 5:NEXT » 

3240 LOCATE I*6,V:PRINT ■ ' 

3250 IF ¥=5 THEN PEN xlLOCATE Xt6,Y+l:PR 

INT HIDt(M»,X,l):B0RDER x 

3260 NEXT ï 

3270 ENT 1,50,2,2:S0UND 1,70,10,15,0, 1:E 

NT 1,50,-2,2:S0UND 1,50,20,15,0,1 

3280 NEXT X 

3290 ENT l,10O,-2,2:SOUND 1,100,100,15,0 

,1 

3300 FOR x=l TO LENln») 

3310 LOCATE x*6,20:PRINT CHRt(251):F0R i 

=1 TO 100:NEXT ilLOCATE xt6,2Q:PRINT MID 

I(n«,x,ll:NEXT x 

332D FOR i=l TO 2OOO1NEXT i:CLS 

3330 ENT 1,100,-2,2:SOUND 1,200,150,15,0 

,1 

3340 PEN 8: LOCATE 7,13:PR1NT"D0LLABS - 

3350 FOR 1= 90 TO 40 STEP -1 

3360 ENT 1,50,-2,2:S0UN» 1,1,5,15,0,1 

3370 NEXT 1 

3360 FOR 1= 1 TO 200:NEXT I 

3390 CLS 

3400 SOUND 1,100,1D,7 

3410 PEN 5:L0CATE 6,10:PRINT'Voulez vous 

":LOCATE 2,12:PRINT'les règles du jeu ?" 

iLOCATE B,14:PRÎNT-(0/N>- 

3420 R«=INKEY» 



343D IF Ri='0' OR R«=V THEN SOUND 1,50 

,I0,7:G0T0 3460 i 

3440 IF R1='N' OR R«='n" OR JOY(OI=16 TH 

EN SOUND 1, 200,10, 7:CLS:RETURN 

3450 GOTO 3420 

3460 ' 

3470 ' REGLES DU JEU 

34B0 ' 

3490 BORDER OihlODE 1 

3500 PEN IiLOCATE 14,2:PRINT'REGLES DU J 

EU' 

3510 PEN 2:PRINT:PRINT:PRINT:PRINT:PRINT 

îPRINT'vbus vous trouvez dans les caves 

d'un' 

3520 PRINT'chateau du sont entasses des 
dollars" 

3530 PEN IiPRINT'Mais vous n'êtes pas gr 

and et pour les" 

354D PRINT'attraper vous devrez saute: e 

n évitant' 

3550 PRINT'de vous faire dévorer par la 

bestiole" 

3560 PRINT'qui vous poursuit...!' 

3570 PEN 3:PRINT'Pour vous protéger de 1 

a bestiole vous' 

3580 PRINT'pouvez percer un trou dans le 
plancher" 

3590 PRINT'a l'aide du 'bouton de feu' d 
u joy.' 

3600 PRÎNT'Quand la bestiole sera dans 1 

e trou* 

3610 PRINT'sautez lui rapidement deux fo 

is dessus* 

3620 PRINT'-tmaintenir le joy.en haut pe 

ndant 2* 

3630 PRINT*sauts)-pour ]'enterrer,sinon 

elle* 

3640 PRINT'bouchera le trou et vous fonc 

era dessus' 

3650 LOCATE 29,25:PRINT'(tapez 'Cl' 

3660 IF INKEY(62>=0 THEN CLS ELSE GOTO 3 

660 

3670 SOUND 1,50,10,7:PEN 2:PRINTiPRINT:P 

RINT:PRINT:PRINT'Sachez que vous ne pouv 

ez pas faire de* 

3680 PRINT'trou sous les échelles, ou au 

dessus des' 

3690 PRINT'echelles ni tout au fond de 1 

a cave' 

3700 PRINT'Quand un trou est fait il fau 

t attendre puela bestiole le rebouche pu 

ur pouvoir en faire un autre' 

3710 PRINT'VoUs êtes plus rapide que la 

bebete pour monter et descendre mais nef 

iez vous elle est très rapide pour sorti 

r du trou' 

3720 PRINT'Enfin,5i vous tombez dans le 

trou vous perdez une vie' 

3730 PEN l:PRINT'Notez:Il g aura 4 table 

aux:i dollar=5pts:la bebete enfermee=lpt 

ichaque tableau=l vie supp.+50 pts" 

3740 PEN 3:PRINT'Ce jeu ce joue avec un 

joystick ou avec" 

3750 PRINT'les touches du curseur. Si vdu 

s utilisez ces touches faites les trous 

avec la ' 

3760 PRINT'barre 'ESPACE" 

3770 LOCATE 29,25;PRINT'ltapez 'CI 1 

3780 IF INKEYI62I=0 THEN SOUND 1,100,10, 

7:r»DE OiRETURN ELSE GOTO 3780 ■ 
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TABLEAU DES VARIABLES 



Philippe DEMOULE 



Voici un programme qui ravira les amateurs de graphismes. 
Sa longueur est due aux 1 5 1 caractères redéfinis configurant, 
entre autres, l'alphabet minuscules géants, ainsi qu'aux 
graphismes utilisant une technique de dessin animé que les intéres- 
sés pourront aisément décortiquer. 



'?;'-■■ '.'.■■'■-'■■''."■■"'■.'■■; ■'' "'"■'■■■'■'■'■■'■v\?. : . ;: '' î, ".^;vi' 



■ 




ABC est un logiciel de pré-apprentissage 
de la lecture testé sur la tranche d'âge 
des 3 à 6 ans. I! permet de familiariser 
aux minuscules les enfants connaissant 
déjà les majuscules. L'efficacité est 
garantie. L'ergonomie générale a été par- 
ticulièrement étudiée afin d'éviter la las- 
situde, et les bruitages n'ont pas été 
délaissés. 

"Apprentissage Niveau 1" permet une 
familiarisation et "Apprentissage Niveau 
2" permet d'exercer les connaissances. 



Les trois niveaux de difficulté correspon- 
dent à trois listes de mots comportant 
des lettres plus ou moins difficiles. L'en- 
fant fera correspondre les minuscules 
aux majuscules en un temps record. 
Le fonctionnement est simple. Deux 
commandes suffisent qui sont rappelées 
par l'appui sur la barre d'espacement. 
Les réponses fausses sont traitées (dure- 
ment), et les réponses exactes récom- 
pensées par une sucrerie... 



ALPHA$(26} 


minuscules géantes 


BONB$ 


partie basse du bonbon 


BONH$ 


partie haute du bonbon 


MART01$ 


marteau vertical 


MART02$ 


marteau horizontal 


EFFMART02$ 


efface marteau horizon- 




tal 


EPONGE$ 


éponge sur tableau noir 


EFFEP1$ 


efface éponge du 




tableau 


EPONGE2S 


éponge dans la boîte 


GOMMES 


efface minuscules géan- 




tes ou marteau vertical 


XBON 


coordonnée x du bon- 




bon 


YBON 


coordonnée y du bon- 




bon 


SP( = 1 ou 2) 


indique si apprentissage 




niveau 1 ou 2 


MOT$ 


mot à copier 


MALUS 


égal si pas d'erreur 




égal 1 si erreur 


R<0 à 9, 


compteur de lettres 


CAR1 




CAR2 


éclats de la lettre 


CAR3 


martelée 


CAR4 





10 '******************************+ 

2D ? miiH ******* AEC ************* 

30 '**** PREAPPRENTISSAGE DE LA *** 

40 '*+********* LECTURE *********** 

50 '*** VERSION 1.1 - AOUT 1986 «** 

60 '****• COPYRIGHT PU. DEROULE ***** 

70 ' ******************************* 

B0 ' 

90 ' 

100 • 

110 DIR alnna$(26> 

120 «ODE 1:E0RDER 12 

130 INK D,24:INK 1.24:INK 2,24: INK 3.24: 

PAPER IsPEN 0:PAPEB«l,0;?B#!,l:ClSaO:PA 

PER»2. 0: PEN#2, 1 : PAPERI3, 1 : PENK3, 1 

140 KÏNDiJW#l,5,27,2.i7:CLS#l 

150 aiND0l#2,24.35,2,17:CLS»2 

160 UINM»lt3,37,3?.2,19:!L5«3 

170 UINK«4,2?,30.13,16:PAPER#4,0:PEN»4 

,l:CLSt4 



************* ABC ************* 

**** PREAPPRENTISSA6E DE LA *» 
*********** LECTURE *********** 
*** VERSION .1.1 - AOUT 1984 *** 
**** COPYRIGHT PH. DEMOULE ***** 
******************************* 



10 

20 

30 

40 

50 

60 

70 

BO ' 

90 ' 

100 ■ 

110 DIM alpha»(26J 

120 MODE UBORDER 12 

130 INK 0,24:INK 1,24:INK 2,24:INK 3,24; 

PAPER ]:PEN 0:PAPERtl,0:PEMtl,l:CLStO:PA 

PERt2,0:P£Nt2,l:PAPER13,l:PEN«3,l 

140 UIND0I#1.5,27,2,17:CLS»1 

150 «IND0Ut2,24,35.2,17:CLSt2 

160 HM0OU«3,37,39,2,19iCLS»3 

170 WINDOU»4,29,30,13,16:PAPERI4,0:PENi4 

,i;CLSt4 

180 ' DESSIN CADRES, BUREAU!, BOITE 

A EPONGE 

190 PLOT 54,120,0:DRAU 568,120:DRAU 568, 

390:DRAU 54,390:DRAU 54,120 

200 PLOT 2,2:DRAH 636,2:DRAU 636,396:DRA 

U 2,396:DRAU 2,2 

210 PLOT 4,20,0:DRAU 10,2O:PL0T 96,20:DR 

m 140,20:PL0T 240,20:DRAH 260,2:PL0T 38 

D,2;DRAU 41Q,20:DRAU 458.20:PL0T 540,20: 

DRAW 610,20:DRAW 630,2 

220 PLOT 56B,12Û,0:DRAU 568,90:DRAU 630, 

90:DRAU 630,390:DRAU 568,390 

23D PLOT 34D,54,0:DRAH 340,44:DRAH 300,4 

4:DRAH 300,54 

240 ' DESSIN CORBEILLE PAPIERS — 



250 ' 



—CREATION DE L'EPONGE- 



260 SYMBOL AFTER 97 

270 SYMBOL 237,0,0,16,40.34,66.65,129 

2B0 SYMEOL 236,0,0,0,0,63,64,64,128 

290 SYMBOL 235,0,0,0,0,252,2,2,1 

30D SYMBOL 234,0,0,0,0,4,10,97,194 

310 SYMBOL 233.160,216,32,194,144,169,16 

2,92 

320 SYMBOL 232, 128.128,160,159, 12B.I2B, 6 

4,63 

330 SYMBOL 231,1,1,1,255,1,2,2,252 

340 SYMBOL 230,5, 1B.9, 134, 68,34, 16,12 

350 B0N8«=CHR«(233HCHRS(232)»CHR«(231)+ 

CHRSI230) 

360 BONH$=CHR$ ( 237 ) +CHRS (236 > +CHR» 1 235 ) ♦ 

CHJrt<234) 

370 SYMBOL 250, 0, 126, i'o2, 103, 127,124,76, 

79 

380 SYMBOL 251,1,125,101,229,253,253,205 

,205 

390 SYMBOL 252,127,121,25,31,127,115,115 

.63 

400 SYMBOL 253,253,253,253.205,205.253,2 



410 SYMBOL 254,63,124,124,79,79,124,124, 



420 SYMBOL 255,157,253,241,241,253,205,2 

05,1 

430 SYMBOL 249,255,255,255,255,255,255,2 

55,255 

440 SYMBOL 248,255,255,255,255,255,255,2 



450 SYMBOL 247, 12B, 192,224,255,255,255,6 

4,64 

460 SYMBOL 246,2,2,2,2,2,2,2,2 

470 SYMBOL 245,64,64,64,64,64,64,64,64 

480 SYMBOL 244,2,2,2,2,2,2,2,3 

490 SYMBOL 243,64,64,64,64,64,64,64,192 

500 SYMBOL 242,0,0,0,0,D.255,128,12B 

510 SYMBOL 241,0,0,0,0,0,255,0,0 

520 SYMBOL 240,63,63,63,63,63,255,63,63 

530 SYMBOL 239,255,0,0,0,0,0,0,0 

540 SYMBOL 238,255,62,60,56,56,56,56,56 

550 MART01t=CHRt(248)*CHR<l247l*CHR$(10) 

+CHR«(8H-CHR«(8)*CHR«(246»CHR«(245HCHR 

S(101*CHR$(81+CHR$(B)*CHR«(244)+CHR$(243 

) 

56D MART02t=CHR$!242)+CHR*(241)+CHR*(240 

>+CHR«llO)+CHR»(BHCHRt(8>*CHR«(S)+CHR*( 

239>*CHR«(239)+CHRS(238) 

570 EFFMART02t=CHR«(32)*CHR«!32)+CHR»(32 

)*CHRt(IOI*CHR»l8)+CHR»(B)*CHRlI8)*CHR«( 

321*CHR«(32)*CHRS(32) 

580 EP0N6ES=CHR$(249>tCHR»(250>*OiR*(251 

)+CHR$(10)*CHRS(8>+CHRSI8)+CHRS(B)+CHR»( 

249)+CHRSI252)*CHRS(253)+CHR«(10)+CHR»l8 

)tCHRS(81+CHR«(B)*CHR«(2491*CHRtI254)+CH 

R<12551+CHRt(ll)+CHRS(ll) 

590 EFFEPlS=CHRt<249)«HR$(249H-CHR«<10) 

♦CHR*(8)+CHRfIB)*CHR*(249)+CHR«(249)*CHR 

*U0)+CHR»(8)*CHR»I8HCHRS(249H-CHR«(249 

>*CHR*ill)+CHR»(ll» 

600 EP0NGE2«=CHR«I250)*CHR«1251)*CKR«I10 

)+CHR$(8l*CHRt(8)*CHR»(252H'CHR<(2531*CH 

R$(10)*CHR«(8HCHR«(8)*CHR*(254]+CHR«(25 

5) 

61B LOCATE 20,2D:PRINT CHR«(24);:PRINT E 

P0NGE2«;:PRINT CHR«(24> 

620 ' DESSIN DU DECOR EN ENCRE INV 

ISIBLE PUIS CHANGEMENT D'ENCRE ET PRESEN 

TATION DU SOFT 

630 0RI6IN C,-48:h=0:GOSUl 1420:0RIGIN 1 

30,-4fl:K=l:G0SUB 1420:0R1GIN 450,-2D:RES 

TORE 1630:GOSUB 1630:0RIGIN 0.0:PLOT 400 

,0,1:DRAU 648,D:0RI6IN 130,-48:G0SUB 166 

OiORIGIN 0,0:INK 0,1:INK 2,1 

640 L0CATE«1,3.2 :PRINTtl, "PHILIPPE DEMO 

ULE' 

650 LOCATEtl, 7, 4:PRINTtl, "PRESENTE" 

660 L0CATEIl,2.11:PRINT»i, "LOGICIEL EDUC 

ATIF" 

670 LOCATEtl, 1D,13:PRINT«, "DE" 

680 LOCATEtl, 7, 15:PRINT»1, "3 A 6 ANS" 

690 ' CREATION DES MINUSCULES 6EAN 

TES 

700 RESTORE 970 

710 FOR Ti=l TO 52 

720 READ mjmero,a,b,c,d,e,f,g,h 

730 SYMBOL numero,a,b,c,d,e,f,g,h 

740 NEXT tl 

750 1=92 

760 FOR n=l TO 13 

770 z=z*4 



7B0 aIpha«(nl=CHR«(z+l>*CHR»(z+2)*Qffi*(l 
0)*CHRt(B)+CHRt(8)*CHR»(z*3)*CHR*lz*4l»C 
HRt(ll) 

79B NEXT n 

BOO RESTORE 1110 

B10 FOR N=l ÎO 78 

820 READ NUMERO, A,B,C,D,E, F, G,H 

B30 SYMBOL NUNER0,A,B,C,D,E,F,6,H 

840 NEXT N 

850 2=142 

860 FOR N=14 TO 19 

870 Z=Z*6 

B80 ALPHA«IN)=CHR«I11)*CHR«IZ*1)*CHR«(Z* 

2]*CHR*(10)*CHRt(8)+CHR«(8)*CHR«IZ*3)*CH 

Rf(Z+4)*CHR»llO)+CHR«18l+CHR»lB)*CHR«[Z* 

5)+CHR»lZ*6)*CHR«(ll] 

890 NEXT 

900 RESTORE 1180 

910 FOR N=20 TO 26 

920 Z=Z*6 

930 ALPHA$(N)=CHR«lZ+l)*CHR«(Z*2)tCHRJ(l 

0l+CHRi(8)+CHR!18HCHRJ(Z*3>tCHR*(Z+4)« 

HRJ(10>*CHR»(B]*CHR*(8)tCKR»(Z+5)*CHR«(Z 

+6>*CHRJill)*CHRtIll) 

940 NEXT 

950 LOCATEtl, 8,7:PRINT»1,ALPHA«I1)-,ALPHA 

S(15);ALPHA»(2) 

960 ' LETTRES 4 CARACTERES 



97D DATA 97,0,0,3,4,B,8,16,16, 98,0,0,1 
92,32, 16, 16, 16, 16, 99,32,32, 32, 32, 96, 14 
7,12,0, 100,48,48,80, 80,144, 9, 6,0 
980 DATA 101,0,0,3,4,8,8,16,16, 103,32, 
32,32,32,112,136,7,1, 102,0,128,96, 16,B 
,0,0,D, 104,0,0,0,1,6,24,96,128 
990 DATA 105,0,3,12,16,32,32,32,32, 106 
,0,224, 16;8,4,'4;4, 12, 107,32,32,19,124, 
16, 12,3,0, 108,24,49, 192,0,3,60, 192,0 
1000 DATA 109,1,1,0,1,1,1,1,1, 110,0,0, 
0,0,0,0,0,0, 111,3,5,9,17,33,64,128,0, 

112,0,0,0,1,2,132,120,0 
1010 DATA 113.32,80,80,63, 16,16, 16, 16, 
114,16,32,224,32,32,64,64,64, 115,16,32 
,32,32,64,128,0,0, 116,64,32,32,32,16,1 
7,14,0 

1020 DATA 117,0,99,148,136,136,8,8,8, 1 
1B, 0,24, 164, 66, 66, 66,66, 66, 119, B, 8,8, B 
,8,S,B,0, 120,66,66,66,66,66,66,65,0 
1030 DATA 121,0,0,0,0,1,2,2,4, 122,0,64 
,64,128,64,64,32,32, 123,8,8,16,32,32,6 
4.128,0, 124,16,8,4,4,132,68,60,0 
1040 DATA 125,3.12,8,8,16,16,16.32, 126 
,196,56,16,16,8,B,8,4, 127,32,32,46,80, 
136,4,3,0, 128,4,4,8,8,16,32,192,0 
1050 DATA 129, 0,8, B,24, 24, 24, 40,40. 130 
,0,8,8,8,8, 8,8,8, 131,40,72,72,72,132,1 
34,1,0, 132,8.6,8.8,21,53,198,0 
106D DATA 133,0,48,72, 136, 8,8,8, B, 134, 
6, 9,B, 6,8,8,8,8, 135,8,8,8,B,4,6,1,0, 
136,8,8,8,8,16,48,192,0 
1070 DATA 137,0,48,75, 140,8,8,8,8, 138, 
0,192, 48, 8,8, 8,B,8, 139,B,B,B,B,6, 6,8,0 
, 140,B,8,B,8,9,10,4,0 
1080 DATA 141,32,80, 144, 16, 16, 16, 16,16, 

142, 1,2, 132, 132, 132, 132, 132, 132, 143,8 
■ B, 8,8,8,5, 2,0, 144, 136, 136, 136, 136, 136 
.80,32,0 

1090 DATA 145,56,68,130,1,1,1,1,1, 146, 
56,68,130,0,0,0,0,0, 147,1,1,1,1.130,68 
.56,0, 148,0,0,0,0,130,68,56,0 



S IHAUT)- 

1110 DATA 149,0,3,4,4,4,8,8,8, 150,0,19 

2,32,32,32,32,32,32, 151,8,8,B,8,8,B,9, 

10. 152,32,64,44,44.128,128,0,0, 153,1 

0,4,12,52,100,130,1,0, 154, D, 0,0. 0,3, 28 

,224.0 

1120 DATA 155,0,1,2,2,4,4,4,4, 154,0,19 

2,32,14,16.14.16,14, 157,4,4,4,4,4,5,6, 

4, 158,32,32.44,64,128,0,34,84, 159,12 

,20,36,68,130,2,1,0, 140,88,48,14,14,16 

,32,192,0 

1130 DATA 161,0,1,2,2,4,4,4,4, 162,0,19 

2,32, 14, 14, 14, 14, 14, 143,4,4,4,4,4,5,6, 

4, 164,32,32,64,64,128,0,0,0, 165,13,2 

2,36,68, 132,4,4,0, 166, 192,32, 16, 16, 10, 

20,B.O 

1140 DATA 167,0,1,2,2,4,4,4,4, 168,0,19 

2,32,16,16,14,16,14, 169,4,4,4,4,4,5,6, 

4, 170,32,32,64,64,128,0,0,0, 171,13,2 

2,36,68,132,4,4,0, 172,192,32,16,112,14 

4,148.104,0 

1150 DATA 173,1,1,1,1,1,7,1,1, 174.0,0, 

0,0,0,252,0,0, 175,1,1,1,1,1,1,3,5, 17 

6,0,0,0,0,0,0,0,0, 177,9,17,33,65,128,1 

,0,0. 178.0,0,0,1,2,4,134,112 

1160 DATA 179,1,1,1,1,1,1,1,1, 180.0,0, 

0,0,0.0,0,0, 181,1,1,1.1,1,1,29,35, 18 

2,0,0, 0,0, 0,0,0,D, 183.65,65, 129, 129, 12 

9,65,66,60, 184,0,0,0,1,2,4,134,112 

1170 ' LETTRES 6 CARACT 

ERES (1AS1 

1180 DATA 185,0,0,0,1,2,2,4,4, 1B6,0,0, 
176,200,136.132.132.132. 187,8,16,32,64 
, 128,0, 0,0. 188, 132, 132, 130, 131, 128, 128 
,128,128, 189,0,0,0,0,0,0,0,0, 190,128 
,128, 128, 128, 128, 12B, 128,0 
1190 DATA 191,0,0,1,2,2,2,2,2, 192,96,1 
44, 8,8.4, 4, B, 8, 193,2,2,2,2,7,10,50,194 
, 194,16,32,64,128,248,128,64,32, 195, 
2,2,2,2,2,2,2,1, 196, 16,8,6,8,8, 14,16,2 
24 

1200 DATA 197,7,8,16,32,32,32,64,64, 19 
8,128,96,32,32,14,14,14,14, 199,44,64,3 
2,32,80,154,15,0, 200,14,16,16,48,80,20 
8,144,16, 201,0,0,0,0,0,0,0,0, 202,16, 
16,16,14,16,16,16,16 

1210 DATA 203,7,8,16,32,32,32,64,64, 20 
4, 12B, 94,32, 32, 14, 14, 14,14, 205,64,64,3 
2,32,80,154,15,0, 206,16,16,16,50,100,2 
16,176,80, 207,0,1,2,4,4,4,2,1, 208,14 
4,16,16,16,16,14,32,192 
1220 DATA 209,0,0,0,32,32,32,32,32, 21 
0,0,0,0,14,14,16,16,14, 211,32,32,32,32 
,80, 154, 15,0, 212, 16, 16, 16,50, 100,216, 1 
76,80, 213,0,1,2,4,4,4,2,1, 214,144,16 
,16,16,16,14,32,192 

1230 DATA 215,0,0,0,0,0,1,2,2, 214,14,4 
8, B0,BO, 144, 16, 16, 16, 217, 4, B, 16,32,64, 
128,0,0, 218, 16, 16, 16, 18,20,24, 48, B0, 
219,0,1,2,4,4,4,2,1, 220,144,16,16,16,1 
6,16,32,192 

1240 DATA 221,31,16,32,32,64,65,130,3, 
222,248,14,32,64,128,0,0,196, 223,0,0,0 
,0,0,1,2,2, 224,40,16,40,72,136,8,4,4, 
225,4,4,8,8,4,4,2,1, 226,4,4,8,8,16,16 
,32,192 
1250 ' CREATION DE LA SOMME 



1260 50MMEt=CHRt(ll)*CHRt(32HCHRti32)+C 



HRt(10)+CHRt(81*CHRt(8)+CHRtl32)*CHRt(32 

)*CHRt(lDl*CHRt(8)*CHRt<8>tCHRt<32)*CHRt 

I32)*CHRt(10)*CHRt<8>+CHRt(8>+CHRt<32H-C 

HRt(32)*CHRt(ll> 

1270 60SUB 1280:1=1 :Y=2:60TO 1760 

12B0 ' EFFACEMENT TABLEAU PRESENTA 

TWN SOFT 

1290 60SUB 1740 

1300 LOCATE 20, 20: PAINT GOMNEt 

1310 FOR X=5 TO 21:L0CATE X,3:PR1NT EPON 

SEt;:FOR TP=1 TO 100:NEIT TP:NEXT I:LOCA 

TE 22,3:PR1NT EFFEPlt 

1320 FOR X=5 TO 21:L0CATE X,7:PRINT EPON 

SEtliFOR TP=1 TO 100:NEXT TP:NEXT X:LOCA 

TE 22,7:PRINT EFFEPlt 

1330 FOR X=5 TO 21:L0CATE X,10:PRINT EPO 

NGEt::FOR TP=1 TO 100:NEXT TP:NEXT X:LOC 

ATE 22. 10:PRINT EFFEPlt 

1340 FOR 1=5 TO 21:L0CATE X,14:PRINT EPO 

M6E$::F0R TP=1 T0 100:NEXT TP:NEXT XiLOC 

ATE 22,14:PRINT EFFEPlt 

1350 'FOR X=5 TO 21:L0CATE X,2:PRINT EPO 

NGEt;:F0R TP=1 TO 100:NEXT TP:NEXT X:LOC 

ATE 22,2:PRINT EFFEPlt 

1360 'FOR X=5 TO 21:L0CATE X,7:PRINT EPO 

NSEt;:FOR TP=1 TO 100:NEXT TP:NEXT X:L0C 

ATE 22,7:PRI«T EFFEPlt 

1370 '[FOR X=5 TO 21:L0CATE X,10:PRINT E 

P0«6Et;:FOfl TP=1 TO 100:NEXT TP:NEXT X:L 

OCATE 22.10:PR!NT EFFEPlt 

1380 'FOR X=5 TO 21:L0CATE X,15:PRINT EP 

0N6£t;:FOR TF=1 TO lQDîNEXT TP:NEX7 X:LO 

CATE 22,15:PR1NT EFFEPlt 

L390 LOCATE 20,20:PRINT CHR*<24);:PRINT 

EP0NGE2t|:PRINT CHRt(24) 

1400 60SUB 1740 

1410 RETURN 

1420 ■ DESSIN ENFANTS 

1430 RESTORE 153Ô:C=0 
1440 READ XA,ÏA 
1450 IF XA=8S8 THEN RETURN 
1460 IF XA=777 THEN. IF K=0 THEN C=0:READ 
XA.YA:PLOT XA,YA,C ELSE C=2:READ XA,VA: 
PLOT XA,ÏA,C 

1470 IF XA=666 THEN C=0:READ XA,YA:IF XA 
=999 THEN 1440 
1480 PLOT XA,YA,C 
1490 READ X.Y 
1500 IF X=999 THEN 1440 
1510 DRAU X,ï 
1520 60T0 1490 

1530 DATA 10,50,20,60,16,64,14,64,10,60, 
12,66,15,74,24,80,28,76,26,65,30,60,20,6 
0,999,999 

1540 DATA 20,76,I7,7B,20,B5,17,92,22,94, 
26, BB, 30, 91, 33,88, 33, 80, 28, 76, 999, 999 
1550 DATA 23,90,24,95,20,116,22,120,22,1 
40,999,999 

1560 DATA 26,B8,28,95, 24,116,22, 120, 999, 
999 

1570 DATA 1B,115, 14, 120,17,130,15, 140,22 
,140,30,144,32,140,30,136,30,125,34,122, 
24,116,999,999 

1580 DATA 30,144,34,150,40,154,50,158,60 
,160,74, 156,81, 148,82, 144,78, 146,74, 14B, 
73, 144,72, 139,66, 130,68, 124,64, 122,60, 12 
6,56,124,58, 120,40, 114,58, 108,54, 104,50, 
108,36, 100,40, 106,30, 110, 28,11B, 999,999 
1590 DATA 80,145,80,138,78,136,80,132,84 
, 130,82, 126,85, 124,82, 122,84, 120,82,118, 



80,114,78,110,70,108,67,111,64,104,58,10 

2,50, 100,40,90,33,80,999,999,777,777 

1600 DATA 66, 100, 76, 90, 96, 8B, 102, 82,110, 

84, 113,77, 106,72, 102, 74, 100, 72,B4,7D,80, 

74,74,72,60,80,999,999,666,666,999,999 

1610 DATA 90,70,115,52,999,999 

1620 DATA 75,132,999,999,888.888 

1630 DATA 10,10,30,0,30,50,10,60,10,10,9 

99,999,20,10,20,50,999,999,30,50,30,60,2 

B,65,26,70,24,75,22,78,2O,B0,18,78,16,76 

,14,74,12,70,10,60,999,999,30,40,35,35,9 

0,70,90,100,88,104,84, 1D8,B0, 110, 20, BO, 9 

99, 999, 30, 0,88, 40, 8B. 68, 999, 999 

1640 DATA 3D,B4,32,92,40,10B,42,104,34,8 

2,34.90,56.104,54,102,999,999,45,36,52,4 

0,52,52,45,50,45.36.999,999,75,56,82,60, 

B2, 70. 75, 68. 75, 56, 999. 999, 888,888 

1650 C=0:60TO 1440 

1660 RESTORE 1600:'DATA BRAS D'ORIGINE 

1670 READ XA,YA 

1680 PLOT XA,YA,3 

1690 READ X,Y 

1700 IF X=999 THEN RETURN 

1710 DRAH X,Y*15,3 

1720 GOTO 1690 

1730 ■ MOUVEMENT DU BRAS 

1740 FOR N=l TO 10:INK 2,24:INK 3,1:F0R 
TP=1 TO 100:NEXT TP:INX 2,1;INK 3,24:F0R 

TP=1 TO 100:NEXT TP:NEXT N:INK 2,24:INK 

3,1:F0R TP=1 TO 500:NEXT TP:INK 2,1:INK 

3,24;F0R TP=1 TO 500:NEXT TP 
1750 RETURN 

1760 ' MENU PRINCIPAL 

1770 XB0N=5 

17B0 YB0N=15 

1790 CLS#1:CLS»2 

1800 PRINT CHRtl24> 

1810 LOCATE 12,3:PRINT 'MENU PRINCIPAL' 

1620 LOCATE 6,B:PRINT ■APPRENTISSAGE NIV 

EAU 1 ... 1" 

1B30_ LOCATE 6,10:PRINT -APPRENTISSAGE NI 

VEAU - 2 ... 2' 

1640'LOCATE 14,16:PRINT 'VOTRE CHOIX ' 

1850 IF INKEY(64)=0 OR INKEY(13)=0 THEN 

SP=1:60TO 1860 ELSE IF INKEY165)=0 OR IN 

KEY(14I=0 THEN SP=2:60T0 1860 ELSE 1850 

1B60 ' ETUDE DES MINUSCULES 

1870 PRINT CHRt<7):CLS«l:CLSI2 

1880 LOCATE 10,4:PRINT 'ETUDE DES NINU5C 

ULES' 

1890 LOCATE 10,7:PRINT 'NIVEAU DE DIFFIC 

ULTE" 

1900 LOCATE 14,1D:PRINT 'FACILE.... I" 

1910 LOCATE 14,11:PRINT 'MOYEN 2' 

1920 LOCATE 14,12:PRINT 'DIFFICILE.. 3' 

1930 LOCATE 13,16:PRINT 'VOTRE CHOIX ?' 

1940 PRINT CHRt(24l 

1950 IF INKEV1641-0 OR INKEYI 131-0 THEN 

RESTORE 2000 ELSE IF INKEY1651=0 OR INKE 

Y( 141=0 THEN RESTORE 2020 ELSÊ IF INKEYI 

571=0 OR INKEYI5)=0 THEN RESTORE 2040 & 

SE 1950 

1960 CLS«1:CLS»2 

1970 ' JEU MINUSCULES 



i960 PRINT CHRt(7):CLS»l 
1990 PAPER»3,1:PEN»3,0:CLSI3:PRINTH3,' 
ESPACE ^P U R A 



2000 DATA CARTABLES,2,1, 5, 18,1, 15,14,3,7 
,RADIATEUR,5, 1,19,4,1, 18,3,9,5, VETEMENTS 
,10,3, 18,3, 4, 3, 11, 18,7, ESCALIERS, 3,7,2,1 
,14, 4, 3, 5, 7, AMBULANCE, 1,6, 15, 9, 14, 1,11, 2 
,3, CONCOMBRE, 2, 8,11, 2,8, 6, 15, 5, 3, AUTRUCH 
ES, 1,9, 18, 5,9, 2, 16, 3, 7 
2010 DATA -BOUTEILLE, 15, B, 9, 18, 3,4, 14. 14, 
3. PANSEMENT.20, 1,11,7,3,6,3, 11, 18.CR0C0D 
ILE, 2, 5, B, 2, 8, 19,4, 14,3, FIN, 0.D, 0,0, 0,0, 
0,0,0 

2020 DATA SERVIETTE.7,3,5, 10,4,3, 18,18,3 
.FAUTEUILS, 21, 1,9, 18, 3, 9, 4, 14,7,TELEPHON 
E, 18.3. 14, 3, 20, 16,8,11,3, REMORQUES, 5, 3, 6 
,8,5,22,9,3,7,GUIRLANDE,23.?,4,5,!4,1,11 
,19, 3, DEJEUNERS, 19, 3, 25, 3, 9, 11, 3, 5, 7, SPA 
SHETTI, 7,20,1, 23, 16,3, 18, 18,4 
2030 DATA CAS(IUETTE,2,1, 7, 22.9,3,18.18.3 
.BOULANGER. 15, 8, 9, 14, 1,11,23,3, 5. DIFFICI 
LE, 19,4, 21, 21, 4,2, 4, 14, 3,FIN,0, 0,0, 0,0,0 
,0,0.0 

2040 DATA UA60NNETS, 12,1, 23,8,11,11, 3, 18 
,7, ZIGZAGUER, 26,4, 23, 26, 1 ,23,?, 3, 5, KYRIE 
LLES,17,24,5,4,3,14,-14,3,7,UYANDOTTE,12, 
24,1,U,19,B,18,18,3,XEH0PHYTE, 13,3,5,8, 
20, 16,24, 18,3,ZARZUELAS,26, 1,5, 26,9,3, 14 
,1,7,Z00PHAG1E, 24,8,8,20, 14, 1,23,4. 3 
2050 DATA KANGOUROU, 17, 1,11, 23, 8,9,5, B, 9 
,XYL0PBAGE,13,24,14,8,20,16,l,23,3,Z0OFH 
YTES,26,a,8,20,16,24, 18,3,7, FIN.0, 0,0,0. 
0,0,0.0,0 

2060 READ NOTt,L(ll,L(2),L(3),L(4l,L(51, 
L(6),L(71,L(B1,L(9I 
2070 MALUS =0 

20B0 IF H0T»= - FIN - THEN CL3«:G0T0 1760 
2090 'FOR 1=1 TO 9 

2100 IF SP=1 THEN IF KALUS=0 THEN LOCATE 
t2,3.2:PRINT#2,MOTt 

2110 IF 5P=2 THEN PRINT CHR«(24> : :L0CATE 
5.11:F0R N=l TO 9:PRINT ALPHAC(LIN) ) ; :N 
EXT N:PRINT CHR«(24) 
2120 'NEXT 1 
2130£0SUB 2160 
2140 ,CLS#1:PRINT CHRÏ(24); 
2150 60TO 2060 
2160 X=5:Y=15 
2170 PRINT CHR*(24); 
2180 IF N2=0 THEN X=X-2 
219D «2=0 

2200 IF INKEY('69]=0 THEN L=1:X=X+2:U2=1 
2210 IF INKEY(62>=0 THEN L=2:X=X*2:W2=I 
2220 IF INKEY(58)=0 THEN L=3:X=X*2:«2=1 
2230 IF INKEY(35)=0 THEN L=4:X=K+2;tl2=l 
2240 IF 1NKEY(50I=0 THEN L=5:X=X*2:«2=1 
2250 IF INKEY138>=0 THEN L=6:X=X*2:U2=! 
226D IF INKEYI60)=0 THEN L=7: Ï=Ï+2:W2-1 
2270 IF INKEY<34)=0 THEN L=8:X=X+2:W2=1 
22B0 IF INKEY(42)=0 THEN L=9:X=X*2:U2=1 
2290 IF INKEY(55]=0 THEN L=1B:X=X+2:W2=I 
2300 IF INKEYI46)=0 THEN L=l 1 :X=X+2:H2-1 
2310 IF INKEY!59I=0 THEN L=12:X=X+2:«2=! 
2320 IF INKEY(63)=0 THEN L=13:X=X*2:U2=1 
2330 IF INKEY(36)=0 THEN L=14:X=X*2:«2=! 
2340 IF INKEY(54]=0 THEN L=15:»=Ï+2:W2=1 
2350 IF INKEY(44>=0 THEN L=16:X=X42:U2=I 
2360 IF INKEY(37)=0 THEN L=17:X=X+2:«2=I 
2370 IF.INKEY(51)=0 THEN L=I8:X=X+2:W2=1 
2380 IF INKEY(61)=0 THEN L=19:X=X*2:U2=1 
2390 IF INKEY(27)=0 THEN L=20:X=X*2:U2=1 
2400 IF INKEY(53]=0 THEN L=21:M+2:tG=l 



2410 IF INKEY(67)=0 THEN L=22:X=X*2:U2=1 
2420 IF INKEY(52)=0 THEN L=23:X=X*2:«2=1 
2430 IF INKEY(43)=0 THEN L=24:X=X*2:«2=1 
2440 IF INKEY(45)=0 THEN L=25:X=X*2:H2=1 
2450 IF INKEY(71)=0 THEN L=26:X=X+2:U2=1 
2460 IF INKEY(9)=0 THEN R=0:PRINT CHR«12 
4)::60SUB 2530:GOT0 1760 
•2470 IF INKEY(IB)=0 THEN IF R=9 AND tIALU 
S=0 THEN GOSUB 1740:60SUB 3160:R=0:RETUR 
N ELSE R=0:IF YB0N=5 THEN XI0N=9:YE0N=15 
:YB0N=YBON-2: RETURN ELSE YB0N=YB0N-2:R=0 
:RETURN 

2480 IF INKEY147>=0 THEN GOSUB 2610 
2490 IF X=23 THEN X=21 
2500 IF «2=1 THEN IF R=9 THEN 2180 ELSE 
SOUND 1,RNDU>»400.3,I5:LOCATE X,Y:PRIN 
T ALPHA«(L):R=R+1:F0R TP=1 TO 400:NEXT T 
P:IF L(RI=L THEN 2180 ELSE GOSUB 2740:U2 
=0:R=R-1:60TO 2180 
2510 «2=3 
2520 GOTO 2180 
2530 GOSUB 1740 

2540 LOCATE 20,20:PRINT GOMME» 
2550 FOR X=5 TO 21:L0CATE X,9:PRINT EPO» 
6E$;:F0R TP=1 TO 1D0:NEXT TP:NEXT XiLOCA 
TE 22,9:PRINT EFFEPU 
2540 FOR X=5 TO 21:L0CATE X,15:PRINT EPO 
NGE«::FOR TP=1 TO I00:NEXT TR:NEXT X:LOC 
ATE 22,15:PRINT EFFEP1» 
2570 FOR X=5 TO 21:L0CATE X,12:PRINT EPO 
N6EJ;:F0R Tp=l TO 100:NEXT TP;NEXT X:LOC 
ATE 22,12:PRINT EFFEPlt 
2580 LOCATE 20,2D:PRINT CHR* < 24 );: PRINT 
EP0NGE2»::PRINT CHRSI241 
2590 GOSUB 1740 
2600 RETURN 

2610 ' MENU AIDE 

2620 PAPER»3,0:PEN»3,1:CLS»3 

2630 FOR 1=400 TO 1 STEP-2D : SOUND 1,1,1, 

7:NEXT 

2640 PRINT13, ' C P Y POU 

R ARRET 1 

2650 FOR TP=1 TO 2D00:NEXT TP:CLS»3 
2460 FOR 1=400 TO 1 STEP-20 ; SOUND 1,1,1. 
7: NEXT 
2470 PRINTJ3,' ENTER PO 



U R 



SUITE - 



2680 FOR TP=1 TO 2000:NEXT TP 
2690 PAPER#3.1:CLS«3 
2700 FOR 1=400 TO 1 STEP-20: SOUND 1,1. 
7: NEXT 

2710 FOR TP=1 TO 200:NEXT TP 
2720 PEN#3.0:PRINT»3. ' E S P A I 
E POUR AID E':PEN«; 

1 

2730 RETURN 
2740 '— 



— TRAITEMENT DE L'ERREUR— 

2750 NALUS=1:F0R TP=1 TO 500:NEXT TP 
2760 FOR N=I TO 7:S0UND 1.200. 10. 7: SOUND 
1,130, 10. 7:F0R TP=1 TO 100:«EXT TP:PRIN 
T CHR$I241:L0CATE X,Y:PRINT ALPHAJlLhFO 
R TP=1 TO IDO:NEXT TP:NEXT N 
2770 PRINT CHR$(24):L0CATE X,Y:PRINT ALP 
HA»(L):LOCATE X,Y:PRINT GOMME* 
2730 LOCATE 15,7:PRINT MART02*:FOfl TP=1 
TO 500:NEXT TP 

2790 ' ECLATEMENT 

2800 0X=4:0Y=9 
2B10 FOR 1=1 TO 3 



2820 OX=OX*2:0Y=OY-2 

2830 LOCATE OX,OY:PRINT ALPHA«(L):FOR TP 

=1 TO 50:NEXT TP:LOCATE 0X,0Y:PR1NT 60MI1 

E< 

2B40 NEXT I 

2850 GOSUB 3120 

2860 LOCATE I5,7:PRINT EFFMART02(:LOCATE 

14,4:PRIHTMART0U 
2870 TAG 

2BB0 MOVE 176,300:PRINT CHR*(99)::X99=17 
6:Y99=300 

2890 MOVE 256,300:PRINT CHRS(97);:X97=25 
6:Y97=300 

2900 MOVE 256,364:PRINT CHR*tlOO)::X10D= 
'254:7100=344 

2910 MOVE 176.344:PRINT CHRÎI98) ::X?B=17 
6:Y98=364 

2920 ' 

2930 FOR TP=1 TO 5:NEXT TP:MOVE 176,300: 

PRINT CHR*(32)::M0VE 176.364:PRINT CHRJi 

32);:M0VE 254.300:PRINT CHR$(32) ;:MOVE 2 

54,344:PRINT CHR«(32); 

2940 NN=0 

2950 NNN=0 

2940 FOR N=2B4 TO 340 STEP HO 

2970 NN=NN+10 

29B0 NNN=NNN+1D 

2990 Y99=Y99-40 

3000 Y?7=Y97-30 

3010 Y98=Y9S-25 

3020 Y100=Y100-45 

3030 CAR1=99:CAR2=97:CAR3=98:CAR4=100 

3040 N1=N+NN:N2=N-NN:N3=N+NN:N4=N-NN 

3050 MOVE N1,Y99+NNN:PRINT CHR*(CAR1);:M 

OVE N2*B0.Y97+NNN:PR1NT CHRtlCAR2);:M0VE 

N3.Y98:PRINT CHR J ( CAR3 );: MOVE N4+80,Y10 
0:PRINT CHR*(CAR4>;:IF AA=1 THEN 307D 
3060 FOR TP=I TO 50:NEXT TP:CAR1=32:CAR2 
=32:CAR3=32:CAR4=32:AA=1:G0T0 3050 
3070 AA=0:FOR TP=1 TO 50:NEXT TP 
3080- NEXT N 
3090 TA60FF 

3100 LOCATE -14, 4:PRINT GOMME) 
3110teTURN 

3120 ENV 2,10,-1,8.5,-1.4 
3130 ENT-2,B0,1, 1,20, 2,1 
3140 SOUND 4,50.100,15,2.2,20 
3150 RETURN 
3160 ' MOT SANS FAUTE- 



3170 ENV 1.1,15.1,1,0,1,1,0,1,12,-1,2 

3180 FOR 1=11 TO 30 

3190 1=1*0.5 

3200 SOUND 1.105,1.1,1 

3210 NEXT I 

3220 IF YB0N=5 THEN XB0N=9:YBON=15 

3230 YBON=YBON-1 :L0CATE#2. XBON. YBON: PRIN 

TH2.B0NB* 

3240 YEON=YB0N-l:L0CATE#2,XEON,YB0N:PRIN 

T#2.B0NHS 

3250 FOR TP=1 TO 3000:NEXT TP 

3240 RETURN 

3270 FOR N=100 TO 200 STEP 1D:S'M0 1,N, 

2:NEXT:F0R N=200 TO 100 STEP -10:S0UND 1 

,N,2:NEXT 

10000 PRINT:PRINT:FOR L=l TO 13:PRINT AL 
PHAt(L);:NEXT L:PRINT:PRINT:PRINT:PRINT: 
FOR N=14 TO 26:PRINT ALPHAt(N) ;:NEXT N:P 
RINT:PRINT:PRINT;PRINT 

10001 3 HÎNT:PPTNT 
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LEC1HEME 




Georges LAVERGNE 

Ce programme éducatif est destiné à la fois à entraîner l'en- 
fant à la lecture rapide et à l'assimilation du mot affiché à 
un thème donné. Pas si facile qu'il n'y paraît ! 
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20 ' * 

4G Blfl b*UGJ.aî(2Qj: 

50 viteî='lente';vite—GO 

ôfl REM = ACCENTS 

70 SYrtBCt AFTER 64 

3C SVÎ1B0L 125.&à0.ftiD.i3C.à6o.S7E.&àG.Ê3 

C:KEY i35.CHRï(i231:5V«E0L l23.io.43.13C 

,è66„A7E.&àD.43C:K£¥ 12B. CrRV!22 ' 

°D BYFIEûL à4-.560.418.S7B.àC.â7C..êCC.S7àî 



V 134.CHR$!94):SYHE0i. 53..&lC.t32,.43S.4é£ 
.s3S.s1G.49Q.16û:î€Y 131. CHRS^j) 
US RE!-! = COULEURS 
123 f!88£ : : INh Q-,3:INK 1.0:îr-:K 2.2ù:FAPE 

R G:."EM 2 

KG CLS 

i3Q LOC-ATE iS.12:RRINT "iecT.Sime' :F0R t- 

1 TO 5a0G;J£XT:L.0aTE 18.12:miHT J 

'iLOCATE i6.i: c RINT 1 cfioiE-is...*;tOC 
ATE 2.7:~R;NT 'Les ï->çles Efti .eu lo/nï*! 
LOCAÏt 2.14 

160 RRIiNT "La vitesse unioue et -aoiae": 
L0CA7E 2.15;PRINT "Hais c ; =? r oins di ff i 
cil? <D/r>)' :L0CAÏE 2,23îPRI£JT "un essai 
sans nscue m/nJ* 



ISO IF kj="p a OR fe*="rl' THEN 210 

190 LOCATE 39.7:PtN 3:FRINT '#' :F0R t=l 

70 2ÛQ:NEXT:L0CATE J9.7:PRINT ' ":F0R ï* 

1 T0 20Q:NEXT 

200 IF l/SO'n" AND BOV THEN 170 

210 LOCATE 39.7:PRINT « 

220 pt=INKEVt 

200 IF o*='3" OR D5='-" THEN 260 

240' L0CATE 29.15:FEs 3:FRINT '*":F0R t=; 

T0 200:SES t :lOCATE 3=.!5:PRI>jT ■ \F0R 
T-i T0 20Û:NEXT 

250 IF pSO'p' AND PÎOV THEN 220 
260 LOCATE 39,!5:PR!NT Dï 
270 o$=INKEÏ? 

200 IF q$="o" OR p$= u r:' THEM 310 
290 LOCATE 39.24:PEN 3tptISI *S":F«Î t=l 

TO 230:NEX7:L0CATE 29.2mRP!NT ' ':F0P 
T=l TO 2D0:NEÏT 

300 IF OSO'c' AND QK>V THEN 270 
310 LOCATE 39.2«:FRINT aî 
320 CLS:i_OCATE I.lOiPRiNT '10 lettres « 
KircuTTi' ilOCATE 1,:2:1NPUT 'Tc-n "Cm pois r 
ape enter: '.r.iîPEN 2 
330 IF LENinSiUO T-'EN 3,0 EL3E 350 
340 5ÔT0 320 
350 CLS 

3o0 IF Tï='o* ÏHEN GOSUB 1920 
370 IF p$='p" THEN S05UB :99C 
300 IF PJ=*c" THEO GOSUB 2000 



420 IF F»=CHR«I32) THEN 430 ELSE 410 

430 CLS . 

440 LOCATE 2.22:FRINT 'SCORE 1 :L0CATE 33. 

22:PRINT ■FAUTES 1 

450 REEM 

460 REN = CADRE 

470 0RIGIN 0,0:1NK 3.6:DRAN è39.0.3:llRAy 

639,399.3:DRAW 0,399.3:DRÀW 0.0.3 
4B0 PLOT 250.190.3:DRAW 450,190,3:DRAU 4 
50,240. 3;DRAU 250.24Û.3:DRAW 250.190.3 
490 PLOT 20.30Q.2:DRAW 200.300. 2:DRAW 20 
0.350.2:DRAU 20.350.2:DRAU 20.300. 2:PL0T 

22Q,300.2:DRAW 400.300. 2:DRAW 400.350.2 
:DRAU 22G.35D.2:DRAW 220.300.2 
500 PLOT 42C,300.2:BPAW 62D,300.2:DRA4 ! 6 
20,250. 2:DRA« 420.350.2:DRAU 420,300,2 
510 PEN 3:L0CATE 6.2:PRIN7 "nom'iPEN 2:1 
ÔCATE 3.5:PRINT n»:PEN 3:L0CATE 18.2:PS! 
NT 'vitesse - :?EN 3:L0CATE 30.2:PR!tIT 'th 
ime" 

520 LOCATE 15.5:INK 2.26:PEN 2:PRIM vil 
et 

530 REM = DEBUT OU JEU 
540 FOR j j=l T0 10 
550 Essaï=esE3itl 
560 RAND0MIZE TIHE 
570 si(jjl=INTtlWI83*l 

5flû n=l 

590 FOR s=l T0 jj 

400 IF sxijj)=«ïij.<-n] THEN 560 

610 r,=ntl 

620 NEXT 5 

630 ON xk(ij) GOTO 640.650,660.670,690.6 

90,700.710.720,730 

640 GOSUÎ. 1470:GOT0 740 

650 6C1SUB 1490: GOTO 740 

660 G0SUB 151Û:G0T0 740 

670 S05UB !53G:G0T0 740 

660 OOSUB 155O:G0T0 740 

690 GOSUB 1570:GÔT0 74D 

700 GOSUB 1590:G0TO 740 

710 SOSUB I610:G0T0 740 

720 GOSUI 1630:60T0 740 

730 60SUE I65O:GOT0 740 

740 PEN 2:L0CATE 28.5:PRIN7 thèmes 

750 REf! = A RETROUVER : N0T5 

760 FOR t=l TO 10 

770 READ b$lt) 

780 NEXT t 

790 REtl = LECTURE MOTS 

B00 ON ::x!jjl GOTO 810,820,830.040.350.0 

60. a?0. 800. 890. 900 

810 GOSUB 1670:60TO 920 

820 GOSUB 1690:G0T0 920 

830 GOSUB 1710:5070 920 

840 GOSUB 1730:6010 920 

350 GOSUB 1750: GOTO 920 

3cG GOSo'F 177C:GOT0 920 

372 50SOE [79D:50T0 920 

580 G0SO1: 1S1G:60TO 920 

S90 GOSUB 1830:SOT0 920 

900 GOSUB 1850:GO T 920 

910 REM 

920 FOR j=! '■ 2C 

930 READ a!(_.l 

940 NEÏT j 

950 RE" = 10T ALEATOIRE 

960 FOR j=l TO 10 

970 9ANDOHI2E T inE 

980 <ljl = iNTiS. 



990 REM = AFFICHAGE 

1000 REH = ANTI REPETITION 

1010 n=l 

1020 FOR r=l TO j 

1030 IF xtj)=x(j-n) SOTO 970 

1040 n=ntl 

1050 NEXJ r 

1060 espace=0 

1070 PAPE» 1:PEN 2:L0CATE 18,12:PR!NT a» 

(xlj)l: 

1080 PEU * COMPARAISON 

1090 FOR tt=l TO 10 

1100 IF b«<tt)=a»<xlj)) THEN 1B70 

1110 NEXT tt 

1120 REM = NOTATION 

1130 kt=" 

11*0 FOR t=l TO vite 

115D k«=" 

1160 k«=INKEYl 

1170 IF k»=CHR«(32) THEN 1230 

11B0 NEXT t 

1190 IF espace=l THEN 1200 ELSE 1220 

1200 b=h-l!f=f*l . 

1210 GOTO 1260 

1220 b=b+l:GOTO 1260 

1230 k«='l":FOR e=l TO 500:NEXT:IF espac 

e=l THEN 1240 ELSE 1250 

12*0 b»btl:6OT0 1260 

1250 p=b-l:f=f*l:6OT0 126D 

1260 IF b<0 THEN 1280 ELSE 1290 

1270 REH 

1280 b=0 

1290 espace=Q 

1300 PEN 3:L0CATE 3.24:PRINT ' ":bb»B5 

TR*(b):LOCATE 3.24:PRINT-bbJ:L0CATE 35.2 

4:PRINT ' ■iftsSTRtlfkLOCATE 35.24:P3 

INT f«:LOCATE !Bjl2;PRINT ■ 

1310 IF rapide=l THEN 1380 

1320 IF b=9 THEN 60SUB 1880:60T0 1380 

1330 IF b=10 THEN 60SUJ 1890:6010 1380 

1340 IF b»20 THEN GOSUB 1890:S0T0 1380 

1350 IF b=21 THEN 60SUB 1900iG0T0 1380 

1360 IF b=49 THEN GOSUB 1900:G0T0 1380 

1370 IF b=50 THEN 60SUB 191O:60T0 1380 

1380 NEXT j 

1390 REH = FIN THFJ€ 

1400 IF jj=IO THEN 2020 

1410 LOCATE 2B,5:PRINT ■ 

1420 INK 3,6.I:LOCATE 15.1B:PRINT "TEE11I 

NE ":N»:L0CATE 15,20:PRINT 'NOUVEAU THES 

E':F0R N=l TO 3D00:NEXT:L0CATE !5.18:PRI 

NT • ":L0CATÉ 15. 20: F 

RINT ■ 

1430 INK 3,6 

1440 IF essai=2002 THEN GOTO 2010 

1450 NEXT jj 

1460 END 

1470 themef="reau":RE5T0RE !48D:RETuRN 

1480 DATA lac.mare, (tanq.rivilre, fleuve, 

»er. torrent, pluie, ci poulie, oc {an 

1490 theme*='vetements":RESTORE 15Q0:RET 

URN 

1500 DATA pantalon, chemise, foulard, ctiaus 

sette. veste, jupe, chemisier, chandail, blou 

se. manteau 

1510 themeî=*mftiers":RESTORE 152D:RETUR 

N 

1520 DATA charcutier, pompier, dessinateur 

, gendarme, cinlaste, fleuriste, dentiste, Ib 

oueur, serveur, mineur 



1540 DATA lion, belette, souris, ours, pigeo 

n, vache, poule, serpent, cheni 1 le, baleine 

1550 theme«="le corps' :REST0RE 1560:RETU 

RN 

1560 DATA paùpilre, menton, poignet, talon. 

Paume.cheville.poitrine,oreijle,cuisse,d 

oigt 

1570 theme*="la musique' :RESTÛRE 1580:RE 

TURN 

1580 DATA harpe, piano.disoue.mllodie.cla 

iron. tambour, trompette, gui tare, violon, ac 

cordfon 

1590 themeS="Ia voiture': RESTORE !600:RE 

TURN 

1600 DATA roue, capot, cric, volant, si!ge,c 

pffre. phare, cl ignetant.rltroviseur.gale'- 

ie 

1610 theme*='la maison" :REST0RE 1620:RET 

URN 

1620 DATA volet. vitre., balcon. mur, pignon, 

f a\aoe, perron, rampe, chemin ie, marche 

1630 themeS="les fruits": RESTORE 1640:RE 

TURN 

1640 DATA banane. orange, cerise. citron.fr 

aise, groseï lie. pomme, poire, ananas, mandai* 

ine 

1650 theme*="la ferme* :REST0RE 1660:RETU 

R» 

1660 DATA charrue, chariot. tracteur, champ 

,rlcolte,moisson,bltail,bH, semai lie, foi 

n 

1670 RESTORE 16B0:RETURN 

1680 DATA terre, bateau, torrent, berge.plu 

ie, rame, oc (an, hotte, gibouile, barque, mare 

, papier, mer, vpiture, fleuve, chaise, lac, ma 

rche, (tang.rivilre 

1690 RESTORE 1700:RETURN 

1700 DATA pantalon, assiette. chemise. coût 

eau, foulard, fleur, chaussette, journal, ves 

te, radiateur, jupe, tapis, chemisier, pelous 

e, chandail, camion, blouse, chem in ie.mantea 

u, chenille 

1710 RESTORE 1720:RETURN 

1720 DATA charcutier, charcuterie, pompier 

, pommier, dessinateur, moteur, gendarme, pro 

gramme, cin{aste,cinf ma, fleunste,miritan 

t, dentiste, dentitien, fhoueur.clameur,ser 

veur ,savourer . mineur , stupeur 

1730 RESTORE I740:RETURN 

1740 DATA lion, loin, recette, sourire, bêle 

t te. souris, ours, chapeau, pi gepn, pignon, va 

che, cache, poule, pousse, serpent, serment . c 

henii le. charmille, baleine, haleine 

1750 RESTORE 1760:RETURN 

1760 DATA paupilre.cpurbe. menton. menteur 

, poignet, pipnnier, talon, talent, paume, dou 

ce, cheville, cheni lie, poitrine, poitevine. 

oreiiIe,pseille,cuisse,cuissarde.doiot.d 

roit 

1770 RESTORE 17B0:RETUSN 

1780 DATA harpe, harde.piancpoint, disque 

, bisque, mdodie, t{l iphone, clairon, (clair 

âge. tambour, bambou, trompette, tromperie, g 

ui tare, guimauve, violon, voilage, accord (on 

, fluet ■ 

1790 RESTORE 1800:RETURN 

1800 DATA roue, rouet, capot, chapiteau, cri 

c. cr 1er, volant, voleur, si )qe, s teste, coffr 



e, offre, phare, phasme, cl ignotant.clopinan 

t,r(troviseur, trouvai lie, galerie, gai )re 

1B10 RESTORE 1820:RETURN 

1820 DATA volet, violet, vitre,mitre,balco 

n, bal Ion, mur, muer, pignon, pigeon, fa\ade,r 

apace, perron, charmante, rampe, crampe, chem 

in(e, chemise, marche, manche 

1830 RESTORE 1B40:«ETURN 

1840 DATA banane, cabane, orange, orage, cer 

ise, crise, ci tron, cidre, fraise, farine, gro 

seille, vermei lie, pomme, gomme, poire, boire 

, ananas, amasser, mandarine, moutarde 

1850 RESTORE 1860:RETURN 

1860 DATA charrue, charnu, chariot, cahier. 

tracteur. r( acteur, champ, clameur, r( col te, 

recoller, moisson, mousson, b(tail,d(tail.b 

1(, cl (, semai lie, mail le. foin, soin . 

1B7D espace=l:G0T0 1140 

1880 vlte=7OO:L0CATE I5.5:PRINT ' 

■:PEN 2:L0CATE 15.5:PRINT *lente':RE 
TURN 
1890 vite=500:LOCATE 15,5:PRINT * 

"••LOCATE 15,5:REN 2:PRINT "mouenne": 
RETURN 
1900 vite=350:L0CATE 15,5:PRINT * 

■:L0CATE 15,5:PEN 2:PRINT *rapide':R 
ETURN 
1910 vite=2D0:L0CATE 15,5:PRINT ' 

•:L0CATE 15.5:PEN 2:PRINT *trls rapi 
de': RETURN 
1920 CLS;L0CATE 16,1,-PEM 3:PRINT "REGLES 

DU JEU":L0CATE 16.2:PRINT " 

"iLOCATE 1,5:PEN 3:PRINT "<":PEN 2:L0CA 
TE 3,5:PRINT ' N'utiliser due la barre e 
space. ' 

1930 LOCATE 1.7:PEN 3:PRINT "«":PEN 2:L0 
CATE 3.7:PRINT ' Des mots vont apparaitr 
e au centre. ":L0CATE 1.9:PEN 3:PRINT '»■ 
:PEN 2:LÛCATE 3.9:PRINT 'Il faut recpnna 
itre ceux qui":L0CATE 3.11:RRINT 'appart 
iennent 3 un thlme dpnnl.' 
1940 LOCATE 1.13:PEN 3:PRINT - «":PEN 2:L 
0CATE 3.13:PRINT "Appuie alors une seule 
fois':L0CATE 3,15:PRINT 'par mot trouvl 
..."•LOCATE 3.20:PRINT "ex: mare, lac s 
ont du thlme <l'eau>* 
1950 h$=INKEY« 

1960 PEN 3.-L0CATE 6,24:PRINT "barre esoa 
ce pour continuer' :PEN 2 
1970 IF h«=CHRJI32l THEN 1980 ELSE 1950 



rapide' :raoide=l:RE 



ceci 



1980 as : RETURN 
1990 vlte=300:vii 
TURN 

2000 essai=2000:L0CATE 16.15:PRINT ' 
est un essai':L0CATE 16, 16:PRINT 'tu pe 
ux jouer" :F0R t=l T0 3000:NEXT:RETURN 
2010 essai=0:LOCATE 16.15:PRINT " 
":L0CATE 16,16:PRINT " 
•:L0CATE 16,9:PRINT "essai terminl 
":F0R t=l T0 3000:NEXT:b=O:f=O:CLS:GOT0 
390 

2020 CLS:L0CATE 16.10:PRINT "terminl ":n 
>:L0CATE 16.12:PRINT "ta note esf:L0CAT 
E 28. 12:PEN 3:PRINT b:PEN 2:b=0:f=0 
2030 LOCATE 6.24;REN 3:PRINT "ESPACE pou 
r une autre partie" :PEN 2 
2040 cs=INKEÏ« 

2050 IF C«>CHR*I32) THEN 2040 
2060 IF c«=CHR»(32) THEN 50 ■ 
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Hey ! Camarades nuls en maths, CPC pense à vous. Le calcul 
mental représente un exercice que la technologie moderne 
nous a fait rapidement oublier. Une panne d'électricité, de cal- 
culatrice et c'est la panique. Ce mal touche aussi bien les jeu- 
nes et les moins jeunes, alors une seule solution : Multiply. Ce 
logiciel vous détaillera les opérations si nécessaires. Les cracks 
ne seront pas non plus oubliés, car différents niveaux sont dis- 
ponibles et chacun y trouvera le sien. Méfiez-vous cependant, 
il compte les fautes et vous ne pourrez vous cacher longtemps 
votre véritable valeur. Mais n'en déduisez pas pour autant 
que vous ne savez pas compter. 



10 REM prooramme de multiplication 

20 REM (c) 6. MARMAIN & CPC 

30 MODE 2 

40 RANDOMIZE TIME 

50 HINDOU #1.2.30.2,10 

60 WINÛOW #3.2.30.15.20 

70 UIND0W #2.40.00.2,20 

80 CLS:PRINT #1. 'MULTIPLICATION' 

90 PRINT «l.M - Niveau !' 

100 PRINT #1.'2 - Niveau 2' 

110 PRINT #1.'3 - Niveau 3' 



120 PRINT 11, "4 - Niveau A' 

130 PRINT »1."5 - Niveau 5" 

1A0 PRINT &T,'Entrez-votre choix' 

150 r$ = INKEYStr = VAL <r«l 

160 IF r* =" THEN 150 

170 IF r < 1 OR r > 5 THEN CLS »1:60TO ( 



1B0 «=1 

190 u=0 

200 a=INT (4»r«RND+10> 

210 b=INT(13V»r+20)«RND+10i 



220 CLS I2:CLS #3:PRINT #2.o:' X ';a:' = 

1 ■ 
230 PRINT »2:PRINT #2. 'Votre résultat :" 
240 INPUT #2,rep 

250 IF ren = S«a THEN PRINT #3:PRÎNT #3. 
'Correct' :G0Tû 610 
260 PRINT «3.:PRINT #3,'FauK':u=l 
270 IF a>=100 TKEN c=INT (a/100) :ce=c*10 


2BD IF a,-=10 THEN d=INT (a/l0)-c«10:de=c 
H0 

290 e-a-ce-de:re=0:so=0 
300 FOR 1=1 T0 IO00:NEXT 
310 CLS #2:CLS #3:PRINT #3. 'Essauez donc 
cela.' 

320 IF b>=1000 THEN 1=4:G0T0 360 
330 IF h>=100 THEN 1=3:G0T0 360 
340 IF b>=lD THEN 1=2:G0T0 360 
350 1=1:-6ÛT0 360' 
360 L0CATE «2.30-1. 4:PRINT #2.0 
370 IF a>=100 THEN l=3:GOT0 400 
360 IF a>=10 THEN l=2:GOT0 400 
390 1=1:G0T0 400 
400 L0CATE #2.30-1. 5:PRINT #2. a 

4M L0CATE #2.25.6:PRINT #2. '< ' 

:t=6 

420 IF e>=0 THEN PRINT #2.b:' ( ":e;" = 

"::s=e:G0SUB 490 . 

430 IF d>0 THEN PRINT #2.bi' X ":oe:' = 

'::s=de:GûSUB 490 

440 IF c>0 THEN PRINT #2.b:" X ':ce: - = 

"::s=ce:G0SUB 490 

450 L0CATE #2.25.t+l:PRINT #2.'+ ' 

460 as #3:PRINT #3. "resuitat:":INPUT #3 
.re 

470 IF re = 50 THEN PRINT #3. "juste":: 60 
TO 480 ELSE 60TO 460 
480 L0CATE fc.30-l.t+2:PRINT #2.re:F0R j 
= 1 TO 2000:NEXT:CLS #2:CLS »3:60T0 610 
490 INPUT »3.re 
500 IF re = bis THEN GOTO 510 ELSE PRINT 

O."faux"!S0T0 490 
510 1=0 

520 IF re >= 1000000 THEN 1=7:L0CATE «2. 
30-l.ttl;PRINT #2,re:t=t+i:G0TO 590 
530 IF re >= IDOOOO THEN I=6:L0CATE #2.3 
0-l.ttl:PRINT #2.re:t=t+l:G0TO 590 
540 IF re >= 10000 THEN 1=5:L0CATE #2.30 
-l.t-H:PRINT #2.re:t=t*l:G0T0 590 
550 IF re >= 1000 THEN 1=4:L0CATE- «2.30- 
l.t*l:PMNT #2.re:t=t*l:60T0 590 
560 IF re >= 100 THEN 1=3:L0CATE #2.30-1 
.t»l:PRINT #2.re:fttl:GOT0 590 
570 IF re >= 10 THEN 1=2:L0CATE #2.30-1. 
t*l:PRINT «2,re:t=t*l:GOT0 590 
5B0 I=t:L0CATE #2.30-1. tthPRINT #2.re:t 
=t+l 

590 so=sD*re 
600 RETURN 

610 IF u=0 THEN score =score*f 
620 PRINT #3."Que5tion ";«:' score *:sco 
re 

630 FOR i = 1 T0 2000:NEXT 
640 u=u+l 

650 IF » > 10 THEN 660 ELSE 190 
660 CLS «3:PRINT #3. "Nouvelle partie o/n 

670 rs=INKEVÎ 

680 IF r« =" " THEN 670 

690 IF r* = '0' THEN 80 

700 IF r« = "n' THEN EN0 ELSE 670 ■ 
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Ce programme permet la redéfinition de caractères à l'unité 
ou en blocs pouvant atteindre 8 caractères. Vos dessins peu- 
vent être sauvegardés pour modification ultérieure sous 
forme de tableaux, mais aussi sous forme de dates ou de chaî- 
nes de caractères dans un module Basic que vous pourrez 
inclure dans vos propres programmes. 



Il fonctionne sur 464, 664 et 61 28 avec 
détection automatique du type de 
machine. Un moniteur couleur est sou- 
haitable. Il est passible de sauter la pré- 
sentation en pressant deux fois la tou- 
che ESCAPE. 

Après ce préambule, le programme teste 
si vous disposez d'une unité de disquet- 
tes et réagit en conséquence. Puis la 
grille apparaît aux dimensions voulues. 
En haut et à gauche, vous avez le des- 
sin en dimensions réelles. A droite, un 
ruban avec les couleurs disponibles. 
Attention : les couleurs 14 et 15 sont 
réservées à l'affichage. Le choix PENS 
permet de modifier la palette. Le curseur 
peut être déplacé à l'aide du curseur ou 
du joystick. 



Voyons les autres commandes : 

— TRANSFORME fait apparaître sur la 
grille le SYMBOL voulu, une lettre par 
exemple 

— SYMBOLS INTERDITS permet d'évi- 
ter certains SYMBOLS qui existent déjà 
dans le jeu disponible. 

— ROTATION permet d'effectuer... des 
rotations droite/gauche ou haut/bas. 

— INVERSION effectue une inversion 
vidéo avec parfois des effets surpre- 
nants. 

Comme indiqué plus haut, l'option SAU- 
VER permet d'archiver son travail sous 
forme de programme Basic ou sous 
forme de tableau pour modification ulté- 
rieure. 
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INITIALISATION 

LES REMS SONT OPTIONNELS 



12D ' 

130 ' PRESENTATION 
140 ' 

150 «ODE 0:!0RDER 0:DEFINT i.j,K,;:rOR : 
=0 T0 10:INK :,1:NEXT:INK 11.18:INK 13.2 
4;INK 14.24ilNK 15,2:c=!:x«=CHR»(23l+CHR 
$lll:nt=CHR«(23)+CH8«(0>:ENV 1,2,7,2, 
.5, 14.-1.5:ENT-1,5.1,I,1D,-1, 1,5,1.1: 
BREAK G0SUB 210 

160 PAPER 2:p=i3:a«="\bs= , Veuilleî o 
entEr':!:=l:y=22:E0SUB 20O:FOR i=Q T0 100 
0:NEKT:PAPER 0:CLS:F0S 1=2 T0 22 STEP I 
SOUND 7,i«70,0.O.l.!:B0RDER 11-c 
170 HHILE S0(l)>4 AND i=22:ÎJEND:W.iVE 320 
-14.5«l,390-12*i:REST0RE 220:FOR ;=■! T0 
B:8EAD a,y,z:M0VER î«,ij*i:F0R k=! T0 :: 
REÀD x.yiDRAUR »»i,u«i,c:IF c=l 1 THEN S0 
UND 7,i0,5.-!!=iP0S:ij=ypi:S:PSINT «$;:DRAtl 
320,0:CALL &EQ19:DRAW x,y:PRINT nî: 
160 NEXT k,j;!:=c*-l:NHTfD=14:a*=>CH8t(là4 
)+' LARRODE Alain" :x=2:y=20:GOSUB 200:c 
15:a*= , APPUYEZ':x=6:y=22:G0S'JE 200:a$=' 
UR UNE TOUCHE .. , tCHR$(143) :ï=l:u=24:60S 
UJ 200 

190 c=0:d=0:UHILE INKEY«=":INK ltc,0:CA 
LL &ED19:c=c+l:INK l+c,l+d:CALL £ED19:WH 
ILE c=10:d=d+l:d=d H0D 25:INK ll,l+d:F0R 
1=1 T0 I0:CALL SBD19:NEXT:c=0:UENB:UEND 
:G0TO 220 

200 PEN d:PRINT k*;:F0R l=LEN(aî)Tû 1 ST 
EP-1:F0R j=l Î0 i+>"a=i«32*16:b=!25-y)« 
6-2:«>VE a,b:DRAU 320,Ô,p:CALL SSD19:L0C 
ATE j,y:PRINT" , +MIDÎla$, i, 11 ;:CALL 6ED1 
9:rt0VE a,b:DRAU 320,0:NEXT j,i:PRINT n«; 
:RETURN 

210 PRINT CHR«(23)CHRSI0I]:RUN 240 
220 DATA ,.13,',7,3..1,-l.,-2.-.5,-,5..5. 
-.S., -3,-1,,, 2.75,-.25,. 25. -1.75,.. -3,-1 
,,1.4, 6,. 2. 1.75... 25. -.25,, -1.5, -.25. -.2 
5, -1.75,. 4, -4, 12,, 7,4,,, -1,-3,,, -2.2.,, - 
1.-2,,. -2, 3. ,,-1,-4,, 5,. 10., 7, 4.,, -1.-3. 
,, -2,2,,, -1,-2,,, -3.-1,, 5, 1,6., 5, 1,1,2.. 
1.-!,, -5, -1,-1 

230 DATA -2,, -1,1,1. .25, S. ,4. 5, .25. .25.1 
.5,,.25,-.25.,-4.5.-.25.-.25.-1.5,,-.25, 
.25. 4. -1.25. 10,, 7.!.. 2,-5,, 5.1,,, -7.-1,, 
-2, 5., -5.-1,, 6. 5,, 8,, 6, -1.5,,, 1,4,,, -1. - 
1.5. .,-6,-1, 



25 



240 CLS : CLEAfi: DEF I NT i-l,x,y:nuwyafa»12à 

:djdt=" - :ÛN ERROR GOTO 3290 

250 SYBBOL AFTER 32:PAPER 0:PEN I:INK H 

,i:INK 0,1:INK 1,24:B0RDER 1 

260 CLS:HODE 1:L0CATE 1,4:PRINT'C0ULEUR 

00 MONOCHROBE (C/B) '■ 

270 a«="iUHILE a*<>"C"AND a*0"M" :a«=W 

PER*(INKEV«I:UEND 

2B0 IF aï="H"THEN colm=26 ELBE colm=t3 

270 PRINT:PRINT" MATERIEL : ";iIF PEEKIS 

A6AO)=0 THEN PRINT" CASSETTE'ELSE PRINT'D 

ISOUETTE 1 

3D0 KEV 138, "synbol after 32:inx I,24:iTi 

k O,!:border l:pen l:mode 2"+CHRtU3) 

310 KEY 12B,'for i=i to hoy:?cî(i):next' 

*CHR$(131 

320 DIM tabl*(8),numdeî$;222),5ymbîi222) 

,c.(161,end(15!,pell.I5l 

330 FOU i=i TO 5000:NEXT:ON EREAK 60EUE 
1590:FOR 1=0 TO 13:pe!0,i)=i:pe(l,i)=i:N 

EXT:IF col»=13 THE» pe(0,13)=26:pe<l, 13) 

=26 

340 INK 0,coln:INK l.OiBORDER cDl«:PAPEE 
0:PEN I:MODE 1:SYHB0L AFTER 32 
350 LOCATE l,4:PRlNT"Largeur du caracter 

e (1 a 4) :"; 

360 a«="":UHILE a«<TOR «$>"4 , :a«=ISKEV 
$:UEND:la=VAL(ai):lax=8*la: PRINT at 
370 INK 14,col»:INK 15,D:L0CATE 1,7:PRIM 
T'Hauteur du caractère (1 a 2) :"; 
380 a*="j»ttLE a«<"l'0R at>'2':aJ=INKFf 
$ : yEND:ho=VAL(a«):hoy=8*no:PRINï a$ 
390 «ODE 0:PAPER 14:PEN 15:CLS:«lNC0y*l, 
18,19,6.7:UIND0U»2,l,2O,21,25:?APER#2,14 
:MND0U*3, 18, 19,4, 10:FAPER#3, 1+îMKBOHM 
,l,20,25.25:PAPER#4,14:PFJt»4,15 
400 FOR i=0 TO 13:INK i,pe(0, il.peil, il: 
NEXT: GOSUB 2780 
410 ' 

420 ' ««M DETECTION 464 OU 6 

64-6128 u n " 

430 ' NE PAS EFFACER LE 'FRAME' (S 

ERT A LA.DETECTION !!!) 
440 ' 

450 f rame :adcar=PEEK (SB736 1 +256*PEEK ! SB" 
37) :paperg=&B6A4:peng=AB6A3 
460 ' 

470 ' ATTENTION 1! TOUS LES 'SYHIOL AFTE 
« 32' SONT INDISPENSABLES 
4B0 ' 

490 FOR i=0 10 15:PLOT-10,-IO,i:eng(i)=P 
EEKipengkNEXT 

500 DEF FNc3=VALCS"-»HT0«(cS<y),x,l)>:OE 
F FNc3$lx)=BIDS(STR«<x),2) 
510 pe(0,14)=col«:DEF FNcl=VALI'S"*MIC»( 
c*ly),((x-l)\2)«2+l,l)> 
520~pe(l,14)=col«:DEF FNc2=VAL("5"+MlDS( 
c«(y),(lx-I)\2)*2*2,l)) 
530 DEF FNcl«=CHR«(22|tCHR«(l|tCHR«(151t 
CHR$(FNclH"\'+CHR«(8HCHR«!15)+CHSÎ(FNc 
2)+""=CHR*(22)*CHR«(0> 
540 DEF FNc2t=CHR»l22)tCHR»(l)*CHRSII5H 
CHR«(15t((pe(0,FNclK2 AND x MOD 2=1!0R( 
pel0.FNc2K2 AND x MOD 2=0)))+CHR*(36+(x 
BOD 2=1))+CHR«(22)*CHR«(0) 
550 GOSUB 940:TA6:F0R i=0 TO 14:P0KE pap 
erg,eng(15):P0KE peng,eng(i):MOVE 192ti* 
'28,396:PRINT CHRX2331 ;:POKE peng,enç!15 
liPOKE paperq,enq(14):M0VE 200*i«28,330: 
PRINT HEX$IH-l);:NEXT:TAGOFF:colorJ="E' 



560 FOR i=0 TO 15:M0VE 192*i«2B,396:DRAU 
R 0,-34, 15:NEXT:DRAyR-414.0 
570 ' 

580 ' MENU PRINCIPAL 
590 ' 

600 touche«="123456789ABCDEF"*CHRS(127)* 
■PRITSOO':60SUB I31P:G0SUB 1070 
-610 <=1 :y=l :LOCATE 1,4: PRINT FNc2S;:inx= 
0:iny=0:PAPER»l,VALCS")-colDr*):CLStl 
620 t(=UPFERtlINKEY«):IF t«="THEN 620 
630 IF INKEY(OI=0 OR INKEYI72)=0 THEN IF 

g>l THEN ing=-l ELBE 620 
640 IF INKEY(21=0 OR INKEY(73)=0 THEN IF 

g<noy THEN iny=l ELSE 620 
650 IF INKEY(8)=0 OR INKEY(74)=0 THEN IF 

«il THEN mx=-l ELSE 620 
660 IF 1NKEY(1I=0 OR INKEY(75)=0 THEN IF 

xïlax THEN iwrt ELSE 620 
670 'IF INKEY(471=0 OR INKEY(76)=0 THEN 
MID*ic4(y),x,li=colori£LSE if inx*inu=fl 
THEN 680 

680 IF INKEY(47)=0 OR INKEY(76)=0 THEN I 
F HID«<c»(g),x,l)=colorSTHEN BID«lc«ty), 
x,l)="E" ELSE BID»(cJ(y),x,l)=cnlor$ ELS 
E IF inxtiny=0 THEN 700 
690 GOSUB 154û:x=x+inx:y=y+lny:inx=0:iny 
=0:L0CATE(x+l)\2,3ty:PRINT USING"S":FNc2 
* ; : PLOT 10+x«4,396-y*2,FNc3:G0T0 620 
700 t=INSTR( touche», t$): IF t=0 THEN 620 
71D IF t<16 THEN colorS=HEX«(t-l> :PAPER# 
l,VAL("i"+culDr$):CLS*l:60T0 620 
720 ON t-15 GOSUB 920,780,1110,1210,1360 
,1630,1590,2470 

730 ON t-15 GOTO 740,740,740,740,600,620 
,2390."600 

740 IF t=17 THEN GOSUB 1310:G0T0 620 ELS 
E IF control THEN 620 aSE 600 
750 ' 

760 ' CHOIX DES COULEURS 
770 ' 
7B0 DATA "r 5 CHOIX COULEUR'," C 

CLIGNOTEMENT 1 , 'ESPACE COULEUR +","ENT 
ER RETOUR' 

790 SOUND 3, 200, 25, 5: RESTORE 780:CLS#2:P 
RINT CHRt(23)jCHR«(3);:F0R tl=0 TO 3:REA 
D text:M0VE 16,76-tl*2O:G0SUB 1030:NEXT: 
PRINT CHR$(23);CHR$(0); 
800 col=0:ccol=0:incol=0:GOTO 880 
810 a«=UPPERS(INKEYl):IF a$=" THEN 810 
ELSE incDl=0 

820 IF aS=CHR«(242] THEN IF colM) THEN i 
ncol— l:ccol=0 ELSE 810 
830 IF a«=CHR«!243> THEN IF CDK13 THEN 
încDl=l:ccol=0 ELSE 810 
840 IF a«="C'THEN ccol=ccol XOR llSOUND 
3,200,25,5:pell-ccol,col)=peia,col) 
850 IF a«=' "THEN pe(ccDl,col)=peiccol,c 
ol ) +1 : pe( ccol, col )=pe( ccol. cpilBOÛ 27:pe 
( 1-ccol , col )=ps(0, col 1 : INK col , pe( ccol, c 
ol),pe(ccol,col):GOTO BBO 
B60 IF a»=CHR«U3)THEN INK CDl,pe(0,col) 
,pe( 1,cd1 ) :PAPER»1, 14:CLS»1 :GOT0 990 
B70 INK col,pe(D,col),pe(l,col):col=col+ 
incol:INK col, pe ( ccol, coll.pei ccol, col) 
880 ?APER»l,col:CLS»l:tex«=HEX«lcoH-l):H 
OVE 570,340:60SUB 1030:F0R c=0 TO litex» 
=RIGHT*(STR«(pe(c,coi)) 1 2)+CHR*i32-35K( 
peiO,colK>pe(l,col)AND c=l)0R ccol«c=l) 
):HOVE 550,282-c«lB:G0SUB 1030:NEXT:60TO 

810, 



890 ' 

900 ' EFFACE OU AFFICHE GRILLE (SUIVANT 

LE FLAG) 

910 ' 

920 GOSUB 1580: IF control THEN RETURN 

930 SOUND 3,200, 25, 5:CLS#2:tex*="J EFFAC 

E ?":MOVE 100,66:GOSUB lD30:a«="':UHILE 

a«O"0"AND a«0"N':a«=UPPER«(TNKEYSI:NE 
ND:IF a«="N"THEN RETURN 
940 FOR 1=1 TO hoy:c((i>=5TRINGStlax,"E" 
):NEXT:flag=l 
950 PLOT 0,352,14:DRANR 520,0:FOR i=0 10 

noy:MOVE 0,352-16»i:DRAyR 128*la-8*(l>0 

AND Ktog AND i MOD 8=01,0, 15:NEXT:F0R 
1=0 TO lax:M0VE 16*i,352:DRAW 0,-128*ho 
+B*li>0 AND Klax AND i BOD 8=0),15:NEXT 
960 MOVE 8,396:DRAUR 32>la«,0:DRAUR 0,- 
16*ho-2:DRAWR-32*la-4,D:DRAWR 0, 16*no+2 
970 FOR u=l TO hoy:IF flan THEN PEN 15 : P 
APER 14:L0CATE l,g*3:PRINT 5TRIN6SI la*4, 
'X'I;:M00E 12,396-2«y:DRAW'31Ha,0,14 E 
LSE FOR x=l TO lax STEP 2:PEN 15:G0SUB 1 
540:PL0TR 4,0,FNc2:NEXT 
980 NEXT:PEN 15:flag=0:x=l:y=l 
990 CLS*3:PL0I 540,320, 15:DRAyR 66,0:DRA 
yR 0,-34:DRAUR-6B,0:DRAyR 0,34:RETURN 
1000 ' 

1010 ' AFFICHE LES MESSAGES 
1020 ' 

1030 PD5X=XP0S:P0KE peng,eng(151 :POKE pa 
perg,eng(14}:TAG:FÛR af=0 TO LEN(texJ)-l 
:MOVE po5X+af*20,YP0S:PR!NT MlD*(tex$,af 
tl,I);:NEXT:TAGOFF:RETURN 
1040 ' 

1050 ' COMPTE LES SYMBOLS RESTANTS 
1060 ' 

1070 FOR «=1 TO 4:L0CATE 19,8*»:PRINT MI 
D((STR«(222-LEN(djd(ll*' " ,m, 1 1 ; :NEXT: R 
ETURN 
1080 ' 

1090 ' ROTATION DE LA GRILLE 
1100 ' 

1110 DATA" G GAUCHE",' D DROITE'." H 
HAUT'," B BAS"," ENTER RETOUR",, 
1120 GOSUB 1580:1F cDntrol THEN RETURN E 
LSE RESTORE HlOiSOUND 3,200,25, 5:CLS»2: 
FOR p=0 TO 1:F0R g=0 TO 2:fiEAD texî:M0OE 

10tp«250,76-o=20:GOSUB 1030:NEXT q,p 
1130 a)=UPPER$IINKEY«)':IF a«=" THEN 113 
D 

1140 IF ai=CHR$(131 THEN RETURN ELSE IF 
INSTR("GDHB",a«l=0 THEN 1130 
1150 IF aS="H"THEN C*=C$(1):F0R i=l TO 4 
oy-l:c((ll=ctUtII:NEXT:c«lhoyl=c» ELSE 
IF a»='B"THEN c«=rt(hou):FOR i=hoy TO 2 
STEP-l:c$(i)=c*(i-I)iNÊXT:cSlll=c» 
1160 FOR g=l TO tou:IF a«='D"THEN c«(ul = 
LEFT$(RIGHT«(cSiui,l)*c«(y),lax> ELSE IF 

a*="G'THEN c«(yî=RIGHT«(c.(y|tLEFTî(cJ( 
gl,ll.la<l 

1170 FOR x=l TO lax STEP 2:G0Sp 1540:PL 
OTR 4,0,FNc2:NEXT:NEXT:S0UND 3,200,25,5: 
GOTO 1130 
1180 ' 

1190 ' INVERSION 
1200 ' 

1210 DATA' 5 GAUCHE-DROITE'. ' H HAUT-B 
AS',' V VIDEO - ,,, "ENTER RETOUR" 
I22D GOSUB 1580:1F control THEN RETURN E 
LSE SOUND 3,2O0.25,5:REST0RE 1210:CLS#2: 



PENSV S 
T TRANSF 
SAUVES 1 , ' 



FOR p=0 TO lïFOfi q=0 TO 2:READ tex*:"OVE 
10*p«300,76-q«20:G0SUB 1030:NEXT q,p 
1230 a«=UPPERS(INKEY«kIF a«=" THEN 123 
ELSE IF a«='V'THEN SOUNO 3,200,25,5 
1240 IE a»=CHR«(13)THEN RETURN ELSE IF I 
NSTR('GHV,a«>=0 IHEN 1230 
1250 FOR. y=l TO hoy:IF a»="G'THEN c$=c$( 
y):FOR x=l TO Iax:MID«(c»ly),l!.I>=MIDS(c 
»,lax*l-x,l):NEXT ELSE IF a*='H'THEN rt( 
g)=ci!u)+LEFT$(rtChoy<-l-tj),Uxt 
1260 IF ai='VTHEN FOR «=l TO lax:MID»(c 
«(y),x,l)=HEX«IMAX(I3-VALCS'«1ID»tc«li.'i 
,x,lî),-Ut(MID*(cï(y),>c,n=-E-) 11 :NEIT 
1270 NEXT:FOR y=l TO tag:c«<u>=RI5HT«(a 
<<jl,lax):FOR x=l TO la« STEF 2:G0SUB 154 
OÏPLOTR 4,0,FNc2:NEXT x,tj:SOUND 3.200,25 
,5:G0T0 123D 
12B0 ' 

1290 ' MESSAGE PRINCIPAL 
1300 ' 

1310 DATA "DEL EFFACER - , ■ 
ROTATION",' I INVERSE' 
ORNE',' QUITTER', ' 
OPTIONS' 

1320 CLSH2: RESTORE 13I0:F0R tl=0 TO 1:F0 
R t2=0 TO 3:READ tex«:MOVE 32+tH260,76- 
t2tlB:G0SUB 1D30:NEXT:NEXT:RETURN 
1330 ' 

1340 ' TRANSFORMATION 
1350 ' 

1360 SOUND 3, 200,25, 5:60SUB 940:tex»='EN 
TREZ VOS LETTRES'+STR*QaMiol+' MAX':CLS 
»2:M0VE 90,76:G0SUB 1030:te«l=' LETTRE 
U NOMBRE ASCII'lNOVE 90,5B:G0SUB 1030 
1370 tei«='ENTER POUR TERMINER . OP OPT 
I0N':MOVE 5,40:8>SUB 1030 
1380 FOR i=l TO ho:FOR j=l TO la:5YMB0L 
AFTER 32:0N ERROR GOTO 1490:00=0 
1390 CLS«4:L0CATE»4,l,l:PRINT»4,STR»((i- 
DUa+jlf ';:LINE INPUT»4,icar« 
1400 op=INSTR<UPPER»(cai-ï),'OP'):IF car* 
="THEN 1400 ELSE IF opOO THEN 1430 
1410 car=VAL(car«l:IF ASC(car»K32 OR ca 
r>255' 0Rlcar>9 AND car<32)THEH 1390 
1420 'IF car>31 THEN cari=CHR*tcar) 
1430 CLS»4:L0CATE*4,2,1:IF opOO THE» PR 

INTt4, 'Entrez la «atrice'tiFOR att=î TO 

9D0:NEXT ELSE PRINT#4,' Patience' :ad= 
adcar+(ASC(car«>-321«8 
1440 FOR k=0 TO 7: IF opOO THEN ON ERROR 
GOTO 1500:CLSI4:L0CATE»4, 1,1:PRINTH4,'0 
P'+STHS(k*l)';:INPUT»4,;' ',c»:c»=BIN»(VA 
LI"+"+c»),B) ELSE c»=BIN«(PEEK!ad*k>,8> 
1450 FOR 1=1 TO 8:y=(l-l)«8*ktl:x=<j-l)» 
Btl:IF MIDS(c»,l,l)='r THEN NIWicJly), 
M)="l" 

1460 NEXT l,k:GOSUB 2780:F0R k=i TO 8:F0 
R 1=1 TO 8:u=(i-l)»8tk:x=lj-lH8tl 
1470 GOBUB 1540:NEXT l,k 
1480 NEXT j,i:GOSUB 27B0:ON ERROR GOTO 3 
290:RETURN 

1490 IF LENIcar»)=l AND AS«car*)>32 THE 
N RESUME 1430 

1500 SOUND 3, 1000, SO, 5: RESUME 1390 
1510 ' 

1520 ' AFFICHAGE DU POINT DANS LA GRILLE 
1530 ' 

1540 L0CATE(x*l)\2,3*y:PRINT USIN6"5"-,FN 
cl»; :PL0T 10««4,396-y«2,FNcJ:RETURN 
1550 



1560 ' CONTROLE SI LA GSILE EST VIDE 

1570 ' 

1580 c=0:i=l:UHILE c=0 AND i<=hoy : c=c- ( c 

«li lOSTRINGtl lax, '£' 1 ) : i=i*l:UEND:contr 

oI=(c=0):IF control THEN SOUND 3,2000,90 

.' 

1590 RETURN 

1600-' 

1610 ' DECODE ET SAUVE LA GRILLE EN MEMO 

IRE 

1620 ' 

1630 GOSUB 1580: IF control THEN RETURN E 

LSE FOR 1=1 TO hou:MOVE 12, 396-2»i :DRAUR 

31«la,0, 14:NEXT:~PAPER 14:PEN 15:CLS«2:U 
INDOU#2,1,20,22,25 
1640 SOUND 3,2D0,20,5:CLS»2:tex!='V0ULEZ 

VOUS UTILISER DES':MOVE 80,60:50SUB 103 
0:te>»=' CARACTERES UTILISATEURS' :«OVE 94 
,44:60SUB 1030:chS=" :UHILE cWO'O'AND 
ch*O'N':ri>S=UPPER$<INKEY«):NEND:0N ERRO 
R GOTO 3290 

1650 FOR 1=1 TO ho«la:tabl»(i)=":NEXT:M 
OVE 0,352:0RAUR 512,0,14 
1660 HINDOU 1,20,4,25:CLS:PAPER 14:UIND0 
U 1,20,1,25 
1670 ' 

16B0 ' AFFICHE ET COMPTE LES COULEURS PA 
R CARACTERES 
169D ' 
1700 FOR d=0 TO 1:M0VE 0,336-d*144:DRAWR 

128,0, 15:DRAWR 0,-128:DRAHR-12B.0:DRAUR 

D,128:F0R 1=5 TO 12:L0CATE 1, i+9*d: PRIN 
T STRING«(4,'X">; 

1710 NEXT:NEXT:FOR i=l TO t,o:FOR j=l TO 
Ia:col»=":FO« k=0 TO 7:F0R 1=1 TO B 
1720 x=(j-l)«8+l:y=(i-l)«8tk«l:L0CATE(l+ 
l)\2,5tk:PRINT USING'S';FNcl»i:PLOT 10+x 
«4,396-y«2,FNc3:c«=HEX$(FNc3l:IF C«<'E" 
AND INSTR(col»,ct)=0 THEN col«=col«tc» 
1730 NEXT l,k:FOR'col=0 TO 13:IF INSTRIc 
ol»,HEX*(coll)=0 THEN 1880 
1740 tex«='PEN'+STR»Icol+l):MOVE 190,210 
:GOSUB 1030 

1750 FOR k=0 TO 7:c«=":y=(i-l>«8+k«:ta 
«p*=c»(y):FOR 1=1 TO 8:x=(j-l>M+l:IF MI 
D(lc»(y),x, DOHEXtlcol) THEN MIDtlrily) 
,x,l)='E':c«=c»t'0' ELSE c»=c»+'l' 
1760 NEXT:FOR 1=1 TO B:x=(j-1)«B+1:L0CAT 
Etl+ll\2,14rt:PRINT USING'S';FNd«; 
177D NEXT:tex«=RIGHT»C 'tSTRSIVALCSX't 
ct)),3):H0VE 150, 19O-k»16:G0SUB 1030 
1780 tabl(k)=VAL(tex«):c»iy]=ta»pt:NEXT: 
IF cli»='N' THEN nu»*=" :GOTO 1B10 
1790 CLS»2:tex»='TAPEZ LA LETTRE OU ENTE 
R'iMOVE 10,6O:G0SUB 1030:SVMEOL AFTER 32 
1800 CLSt4:L0CATE«4,l,l:PRINT#4, '>'i:LIN 
E INPUTt4,nun« 

1810 IF num$=" THEN numsymb=num5ynib+l:n 
uiïi=nu«5U»b: IF INSTR(djd«,CHR«(nunl)>0 AN 
D no»<256 THEN 1810 ELSE IF nu«>255 THEN 

CLS«2:G0SUB 2780:tex»='LIMITE DES 255 C 
•:MOVE 100,60:GOSUB 1030:S0UND 3,2000,90 
,6:G0TO 1790 

1B20 IF num«<>" THEN num=ASC{num»):IF n 
u»<32 OR nu»>126 THEN 1800 
1830 IF nu»«<>" THEN IF INSTR(djd»,CHR» 
(nu»)l>0 THEN 1600 
1840 ' 
1850 ' FABRICATION DES LIGNES PROGRAMMES 

' SYMBOL ... ' 



1870 djd«=djd«*CHR»!mi-.):GOSUB 1070:tabl 
»(li-l)»latj)=tabl»((i-lUlatj)«X»(nuii 
,2)*HEX»lcolksi)«b«(nii»-32)=":F0R n=O.T 
7 :sy«b* { mi«-32 ] =syj»b» ( nura-32 ) +HEX» ( tab 
lln),21:NEXT:G0SUB 278D 
1B80 NEXT col,j,i:FOR i=l T0 ho«la:sbt=' 
■:FOR j=l TO LENftablMiDBTEP 3 
1890 c2«='0F'+HEX»iVALI'S'tMID»ltabl»(il 
,j+2,l))+2,2)*MID*ltabl»(i),j,2l 
1900 IF j>1 THEN 5bt=sbS+"08"+c2S ELSE s 
bt=sb»*c2« 

1910 NEXT:IF LEN(sb«»6 THEN sb»='1603' + 
5b«t"1604" 

1920 IF LEN(sb»)>6 THEN mmdertlnu.def 1= 
sb»:numdef=nunrdet+l 
1930 NEXT 

1940 CLS#2:UIND0Ut2,l,2D,21,25:tes»="0N 
CONTINUE '":NOVE 90,50:GOSUB 1030 
1950 t«=":UHILE «O'O'AND t»<>'N':t»=U 
PPER»(INKEY»I:UEND:IF t»='N' THEN 1990 
1960 tex«='AVEC LE MEME ?':MOVE 90,34:60 
SUB 1030 

1970 «=":WILE «O'O'AND t«0'N':t»=U 
PPER»(INKEY»I:UEND:IF t«='N' THEN 340 a 
SE HINDOU 1,20.4,25:CLS:WINDOU 1,20,1,25 
:60SUB 1320:GOT0 950 

1980 IF nu«def=0 THEN GOSUB 1580: IF cont 
roi THEN 620 

1990 CLS»2:tex»='SAUVEGARDE '":MOVE 1DD, 
44:G0SUB 1030:t»=":UHILE «O'O'AND t*< 
>'N':t»=UPPER«(INKEY»):UEND:IF t$='N'THE 

N IF t=22 THEN 620 ELSE 2380 

2000 CLSH2:te<«='CHAINES OU DATAS ?':MOV 

E 60.44:G0SUB 1030:type«=":liHILE type«< 
>'C'AND type«<>'D':type«=UPPER$(INKEY«): 

WEND 

2010 aS»2:texi='ENTREZ LE NOM DU FICHIE 

R':NOVE 10.60:GOSUB 1030:SYMBOL AFTER 32 

2020 CLSt4:L0CATE«4,l,l:INPUT#4, '>',nonp 

roq»:IF LENInomprootliB THEN SOUND 3,100 

0,90,5:SOT0 2020 

2030 DATA PREPAREZ UNE CASSETTE, APPPUYER 
ENSUITE SUR, PLAY a REC PUIS.SUR UNE AU 
. TRE TOUCHE 

2040 GOSUB 2780:1F FEEKISA6A0)=0 THEN RE 

STORE 2030:CLS»2:FOR i=0 TO 3:READ text: 

MOVE 10,76-i*20:60SUB 1D30:NEXT:CALL SBB 

06 

2050 CLS#2:tex«='SAUVEGARDE EN COURS" :M0 

VE 40,50:60SUB 1030 

2060 ' 

2070 ' GENERATION DU FUTUR PROGRAMME 1CH 

AINES OU DATAS! 

2080 ' 

2090 numd=0:OPENOUT'"+nompi-DqS+'.BAS':Q 

*=CHR*(34):IF type»='D'THEN 2220 

2100. ' 

2110 ' PARTIE CHAINES 

2120 ' 

2130 mi»lin=10:F0R i=0 TO 222 

2140 IF mi«det«li)="THEN 21B0 ELSE nu»d 

=numd+l 

2150 numlid=numlig+10:PRINT#9,FNc3î(numl 

iglf a»<'tFNc3»(ilt')='tG»; 

2160 FOR j=l T0 LEN(nu»def«<i)!STEP 2:IF 
MID»(numiJeft(i),j,2)='0C'THEN PRINTH9.G 

«♦'♦CHR«(13)f+G*; ELSE PRINT»9,CHR»IVAL 

l"î"*MID»lnu«def«(i),j,2))l; 

2170 «EXT:PRINT#9,6t 
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2180 NEXT:GOTO 2290 

2150 ' 

2200 ' PARITE BATAS 

2210 ' 

2220 numllQ=20:F0R 1=0 T0 222:IF nuffldefî 

(i!="THEN 2250 ELSE nuniFmild+1 

2230 numliq=mimlid+10:PRlNT#9,FNc3*(nu™l 

ijH" DATA '; 

2240 FOR j=I TO LEN(numdefJ(i))STEP 2:PR 

INT«9.HEX$(VAL('4'*MID«(nu«defS(i),j,2)) 

if ,';!ieiTipiB«rw,"*' 

2250 NEXTlIF nu«d>0 THEN PRINT#9, - 20 RES 

TORE 30:FOR 1=0 TO'+STR$(oumd-!l+':t«= , + 

GSt'0'+Gt+' :ai(i)='*G«««t' :WHILE t$<>"+ 

G$+**'+G*+':aî(i)=a$(i)+CHR*IVALr+GJ+'& 

■rt«fttSll:READ tt:UEND:NEKF 

2260 ' 

2270 ' PARTIE COMMUNE AUX DATAS ET/OU SY 

MBOLS 

22B0 ' 

2290 PRINTt9,'10 ';:IF nu»d>9 THEN PRINT 

#9. "DIM a$l';FNc3$(nuindl;'l:*i 

2300 PRINTt9, 'MODE OiSYMEOL AFTER 32';:F 

OR i=0 TO 13:PRINT#9,':INK"+STR«(i+2)f, 

■4fNc3«(pe(D,i));:IF pe(l,i)<>pe(0,i)THE 

N PRINT»9,','*FNc3»lpe(l,il)| 

2310 NEXT:PRINT#9 

2320 FOR 1=0 TO 222 

2330 IF syjiib*(il<>"THEN numlig=nuniliq+l 

0:PRINT«9,FNc3«(mraligl;' SYMBOL' ;STR»U 

+32I;:F0R j=l TO LEN( symb*( i ) 15TEP 2:PRI 

NTSÏ.S'tFNdXVALCS'tMIDllBumbtlil.j^ 
>I);:NE»T:PRINT«9 

2340 NEXTiCLOSEOUT 

2350 ' 

2340 ■ FINI : ! ! 

2370 ' 

2380 CLS»2:tex«='JE SAUVE LE TABLEAU V 
:MOVE 90,60:G(auB 1030:a*=":UHILE a«'N 
■OR a*>"0" sa*«UPreRS( IM<EY*) :UEND: IF a*= 
'O'THEN CLS»2:a»='2":G0SUB 2620 
2390 CLS«2;UIND0U«2,l,2D,21,25:tex«='0N 
ARRETE ?':MOVE 90,5D:G0SUB 1030 
2400 t«=":UHILE «O'O'AND HO'N':t«=U 
PPER«(INKEY»):UEND:IF t$='N'THEN IF t=22 
THEN 600 ELSE 1940 

2410 DATA l,24,20,4,26,0,2,B,10,12,14,lt 
,18,22 

2420 RESTORE 2410:F0R i=0 TO 13:READ c:I 
NK i,c:NEXT:INK 14,1,24:INK 15,16,11 
2430 PEN 1: PAPER DiBORDER 1:M0DE 1:SYMB0 
L AFTER 32! END 
2440 ' 

2450 ' OPTIONS 
2460 ■ 

2470 DATA M CHARGER UN TAILEAU','2 SA 
UVER UN TABLEAU', '3 SYMBOLE INTERDITS', 
•4 RETOUR AU MENU' 

2480 CLSKiRESTORE 2470:FOB tl=0 TO 3:RE 
AD te««:MOVE 32,76-tlHB:G0SUB 1030:NEXT 
2490 a*=":»HILE aX'l'OR a«>"4':a«=INKE 
¥t:UEND:IF a«='4'THEN RETURN 
2500 ' 

2510 ' SYMBCILS INTERDITS A LA REDEFINITI 
ON 

2520 ' 

2530 CLS«2:IF a«<'3'THEN 2620 ELSE tex»= 
■ENTREZ LETTRES OU NOMBRE ASCII'lMOVE 5, 
7D:G0SUB 1030:tsxS='ENTE» POUR TERMINER' 
iMOVE 2O,50:G0SUB 1030:SYM80L AFTER 32 



■>';:LIN 



2540 CLS»4:L0CATE#4,1,1:PRINT*4, 

E INPUTI4,;car«:0N ERROR GOTO 2570 

2550 IF car«="THEN GOSUB 27801 RETURN EL 

SE rar=V/SUcar«).'IF ASC(car«l<32 OR car) 

255 0R(car>9 AND car<321THEN 2540 ELSE 1 

F car>31 TKEN car«"CHRtlcai-) 

2560 ~CLS»4 : PRINTK4, CHRt ( ASC I car'« I ] * ' EST 

BON (MU ?':a«=":UHILE aX'N'OR a«>'0 
■:a*=UPPERS(INKEY»):«END:IF at='N'THEN 2 
540 ELSE djd$=djdS+CH««IASC(carJ>l:GOSUB 

1D70:S0UND 3,200, IDiGOTO 2540 
2570 IF LEN(cartl=l AND ASCicar«>>31 THE 
» RESUME 2540 

25B0 SOUND 3.1000,B0.5:RESUBE 2540 
2590 ' 

2600 ' CHARGEMENT OU SAUVEGARDE DE LA GR 
ILLE 

2610 ' . 

2620 tex«='ENTREZ LE NOM DU FICHIER' :M0V 
E 32,50:G0SUB 1030lSYMB0L AFTER 32 
2630 CLS»4;PRINT»4,'> ';:LINE INPUT»4,;c 
ar*:IF LBHcar»)>8 THEN 2630 
2640 GOSUB 2780: IF. car*="THEN RETURN EL 
SE IF ai='2'TKEN 2710 
2650 DATA PREPAREZ LA CASSETTE, APPPUYER 
ENSUITE SUR,PLAY PUIS ENSUITE.SUR UNE AU 
TRE TOUCHE 

2660 IF PEEK(SA6A01=D THEN RESTORE 265D: 
CLS«2:F0R 1=0 TO 3:READ tex»:MOVE 10,74- 

H20:GOSUB 1030:N£XTlCALL SBB06 

2470 OPENIN' ! '«artf . REF" : INPUTK9, la, ho 

,djdi:lax=8*la:hDy=8*ho 

2680 FOR i=0 TO l3:INPUT»9,pe(0,il,pell, 

il:INK i,pe(D,i},pe(l,i>:l€XT 
"2490 FOR i=l TO hoy:INPUT»9,ctlil:NEXT:F 
OR i"=l TO 222:INPUT»9,sg»b*(i);NEXT:F0R 

i=l TO 222:INPUT»9,ra»deftli):NEXT:CL0SE 

IN 

2700 HINDOU I,5,1,3:CLS:HIND0H 1,20,4,25 

:CLS:WINDOU 1,20, 1,25:G0T0 950 . 

2710 IF PEEK(SA4A01=D THEN RESTORE 2030: 

CLS«2:F0R 1=0 TO 3jREAD tex$:MOVE 10,74- 

iI20:60SUB 1030;NEXT:CALL SBB06 

2720 OPENOUT" ! '+car$+' . REF" : WR1TEB9, la, h 

o,djdi 

273D FOR i=0 TO 13:URITE»9,pelO,i>,pe<l, 

îliNEXT 

2740 FOR i=l TO huy:URITE*9, c*(i 1 iNEXTlF 

OR i=0 TO 222:URITE«9,sy.btli)?NEXT:F0R 

i=0 TO 222:NRITE«9,ni»def«(i):NEXT:CL0SE 

OUT: RETURN 

2750 ' 

2760 ' SYHBOLS POUR LA GRILLE 

2770 ' 

2780 SYMBOL 35,32,32,32,80,32,32,32 

2790 SYMBOL 34,2,2,2,5,2,2,2 ■ 

2B00 SYMBOL 37,134,136,136,136,136,136,1 

36,255 

2B10 SYMBOL 92,112,112,112,112,112,112,1 

12 

2820 SYMBOL 96,7,7,7,7,7,7,7 

2830 ' 

2840 ' REDEFINITION DE L'ALPHABET (PSEUD 

0-MODE 1) 

2650 ' 

2860 .SYMBOL 43,0,0,32,32,112,32,32 

2870"SYMBOL 45,0,0,0,0,240 

2880 SÏMBOL 48,0,96,144,144,176,208,144, 

96 

2890 SYMBOL 49,0,32,96,32,32,32,32,112 



2900 SYMBOL 50,0,96,144,16,32,64,144,240 

2910 SYMBOL 51,0,96,144,16,96,14,144,94 

2920 SYMBOL 52,0,32,44,128,140,240,32,11 

2 

2930 SYMBOL 53,0,240,144,128,224,16,144, 

94 

2940 SYMBOL 54.0,94.144.128,224,144,144, 

94 

2950 SYMBOL 55,0,240,144,14,32,44,44,64 

2960 SYMBOL 56,0,96,144,144,96, 144,144,9 . 

6 

2970 SYMBOL 57,0,96,144,144, 112, 16, 144',9 

6 

29B0 SYMSOL 63,0, 112. 136,B,14, 32, 0.32 

2990 SYMBOL 65,0,94,240.144,144,240,144. 

144 

3000 SYMBOL 66,0,224.144,144,224,144.144 

,224 

3010 SYMBOL 67,0,94,144,12B.12B,128,144, 

94 

3020 SYMBOL 68,0,224, 144, 144, 144,144,144 

3030 SYMBOL 69.0,240,128,128,224,123,128 

.240 

3040 SYMBOL 70, 0,240. 12B, 128,224, 12B.128 

,128 

3050 SYMBOL 71,0,94,144,128,128,174,144, 

112 

3040 SYMBOL 72,0,144,144,144,240,144,144 

,144 

3070 SYMBOL 73,0,112,32,32,32,32,32,112 

3080 SYMBOL 74,0,112,32,32,32,32,160,64 

3090 SYMBOL 75,0,144,144,160,192,160,144 

,144 

3100 SYMBOL 76,0,64,64,64,64,64,44,112 

3110 SÏMBOL 77,0,144,240,144,144,144,144 

,144 

3120 SYMBOL 78,0,144,208,176,144,144,144 

,144 

3130 SYMBOL 79,0,94,144,144,144,144,144, 

94 

3140 SYMBOL 80, D, 224, 144, 144, 224, 12B, 128 

,128 

315D SYMBOL 81,0,94, 144, 144, 144, 144, 14D, 

BO 

3140 SYMBOL 82,0,224,144,144,224,160,144 

,144 

3170 SYMBOL 83,0,96, 144, 12B,96, 16, 144,96 

3IB0 SYMBOL 84,0, 112,32,32,32,32,32,32 

3190 SYMBOL 85,0,144,144,144,144,144,144 

,96 

3200 SYMBOL B6,0,144,144,144,144,144,96, 

96 

3210 SYMBOL 87,0,144,144,144,144,144,240 

,144 

3220 SYMBOL BB, 0,144, 144,144,94,144,144, 

144 

3230 SYMBOL B9, 0,80, 80,80, 112, 32, 32,112 

3240 SYMBOL 90, 0,240, 14, 32, 44, 12B, 128,24 



3250 RETURN 

3240 ' 

3270 ' UNE ERREUR ' ' " 

3280 ' 

3290 IF ERL=450 THEN paperg=4B339:peno=S 

B338 : adcar=PEEK i JB294 1 t254»PEEK I SB297 1 : » 

ESUME 490 

3300 INK 1,0;PEN l:ta$='ERREUR'*STRt(£R 

RI*' EN LIGNE'<-STR4(ERL):CLS»2:M0VE 10,7 

0: GOSUB 1030:END ■ 
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SCRIBE 



Olivier CHEDRU 



Q 

^Acribe est un mini-traitement de texte qui réunit des fonctions 
^Mtrès pratiques. Il est prévu initialement pour fonctionner avec 
%/un lecteur de disquettes mais peut être adapté facilement en 

supprimant les fonctions ITAPE et IDISC et en modifiant le 

programme. 





MEMU: 


1 


- NOUMELLE P«< 


1 £ 


- SAUVEGARDE 


1 


- CHARCEMENÏ 


' 


- RETOUR 


1 s 


- IHPRESSÏOHS 


1 6 


- EFFACEMENT 




— MAHGE G&UCR 






I 
I 



Après un RUN, une page blanche appa- 
raît, ainsi que la liste des fonctions en 



L'éditeur est plein écran et les déplace- 
ments se font avec les touches du cur- 



seur. Les touches "DEL" et "CLR" gar- 
dent leurs fonctions habituelles. 
"ENTER" provoque un retour à la ligne. 
L'appui sur "ESC" fait apparaître un 
menu réunissant différentes fonctions : 



— nouvelle page : permet de choisir une 
page parmi les 20 disponibles ; 

— sauvegarde et chargement : sauve et 
charge des pages (lors de la sauvegarde, 
vous aurez le choix entre toutes les 
pages (20) ou une seule page) ; 

— retour ; provoque le retour à la feuille 
que vous étiez en train d'éditer ; 

— impressions : vous pouvez imprimer 
toutes les pages (20), une seule ou plu- 
sieurs. Les pages seront imprimées les 
unes à la suite des autres, mais vous 
pouvez faire deux colonnes avec "marge 
gauche" ; 

— efface : efface la page spécifiée après 
confirmation ; 

— marge gauche : sélectionne la marge 
d'impression et permet ainsi de faire 
deux colonnes ou de centrer un docu- 
ment ; 

— retour arrière : fait reculer le papier sur 
l'imprimante jusqu'en haut de la page qui 
vient d'être imprimée (utile lorsque l'on 
imprime avec deux colonnes) ; 

— arrêt : fin de programme. 



AD 


Adresse texte 


AD1 


Adresse originale 


C$ 


Curseur 


A$,B$ 


Chaînes à emplois multi- 




ples 


F 


Numéro de la feuille à 




imprimer 


NUMPAGE 


Numéro de la page eh 




cours 


OK 


Flag d'entrée de numéro 


NAME$ 


Nom du fichier 


u 


Indices de boucles 


X,Y 


Coordonnées du curseur 


z 


Longueur d'une page (880 




caractères) 


MG 


Marge gauche 


N 


Indice de boucle 


AF 


Adresse d'affichage 


U 


Adresse du caractère 




ASCII recueilli 


A 


Valeur de A$ 


T$ 


Support (cassette ou dis- 




quette) 


TY 


Indice d'incrémentation 


H 


Indice de boucle 


FONCTIONNEMENT 


DU PROGRAMME 


Scribe utili 


se des routines en langage 


machine im 


plantées à partir de l'adresse 


&8500. El 


es permettent une rapidité 




Une ligne téléphonique est à votre disposition, vous met- 
tant en confacf direct avec la rédaction. Ceci est un ser- 
vice sans égal \ Respectez simplement les horaires et les 
jours -que nous vous indiquons : 
MERCREDI de 9 h à 12 h et de 14 h à 17 h. 
VENDREDI de 9 h à 12 h seulement. 
Tout appel en dehors de ces créneaux sera refoulé : ne 
dépensez pas inutilement votre argent ! 

Le numéro : 9yij2»°Ot 1 I» 



kilo 

cfc: 

99.52.98.11. 



d'exécution largement supérieure à celle 
du Basic. 

La routine implantée en ligne 140 se 
charge de vider une page de 880 carac- 
tères débutant à l'adresse stockée dans 
la variable AD. 

En ligne 1 1 0, le vecteur &BB1 B est uti- 
lisé pour avoir une réponse instantanée 
lors de l'appui sur une touche quelcon- 
que. 

En ligne 1440, on utilise l'adresse 
&BB5A pour afficher une page. 
Le reste du programme est entièrement 
en Basic. 

REMARQUES 

La capacité de mémoire des CPC a limité 
le nombre de pages à 20, ce qui est déjà 
suffisant. Ce programme n'utilisant pas 
de DIM MACHINI2000) pour le stockage 
des textes, la place mémoire disponible 
est supérieure à celle qu'elle serait avec 
cette méthode. 

L'option retour arrière du menu n'est pré- 
cisée que sur une seule page. Au-dessus 
de ce nombre, il sera nécessaire de faire 
avancer légèrement le papier. 
En cas d'arrêt du programme ou d'erreur 
de manipulation (fichier non trouvé!, le 
retour au menu est possible par l'appui 
sur ENTER sur le pavé numérique. 
Le Reset par CTRL SHIFT ESC est impos- 
sible, et la touche ESC est condamnée 
pour des raisons de sécurité. 
En ligne 20, les POKE &B8D1 ,0 et POKE 
&B8D2,23 servent à accélérer la vitesse 
du magnéto en cas d'enregistrement sur 
cassette. Notez que cette vitesse est 
modulable selon la valeur du POKE 
&B8D2.X (plus X est petit, plus c'est 
rapide). La vitesse initiale est d'environ 
4000 bauds. 



20 REfl ici Olivier Cheoru S CPC 
30 REM 

4d rem mini-traitement de texte 
50 rem 

60 kev 139. "goto 350"+chs«(13):key def 6 
6.1.252:p0ke sbdee.201:p0ke sb8d1.0:poke 

8B8D2.23:DIM FMiHMîTOTH-WjlF HB1 
E»"424tt THEN OPENOUrrJMIENOflY S3FFF:C 
LOSEOUT 

70 MODE ItSK 0.15:E0PDER 0:INK l.jiPAPE 
R 0:PEN i:CLS 

BO LOCATE 15.1:PRINTTL0C NOTES" 
90 LOCATE 1.2:PRINT 5TRING.(40. 154) 
100 BJ=" DEL CLS ENTER "+CHRt(240)*CH 
RSi241)tCHRj:i242H-CHR«(243>+" ESC=MENU" 
110 AD=S400Q:' ADRESSE DES FEUILLES 
120 UINDOUtl.l. 40,25. 25:INK 2.25:PEN#1.2 
:PAPEfi#l.l:CLS#!:LOCATE M.2HH0BMZ, 
lrPRINT #1,B$ 
130 HINDOU 1.40.3,24:0.5 
140 ' ROUTINE DE LECTURE DE TOUCHE 
150 TY=0:AJ="CD1BBE32D09SC9":F0R !=! TO 
LENlAt) STEP 2:P0KE S9500+TY.VAL'"8"'tNID 
»(A».I,2)):TY=TY*1:NEXT 
160 Z=22t40:'NJ LIGNES PAR FEUILLES 



170 GOTO 2D0 
130 TY=0:A»="2r+RIGHT»(HE»!AD.41.2HLE 
'FT«(HEXS(AD,4i.2)+"0r+RI6HTSiHEX»'Z.4). 
2!-«_EFT»<HEX$(Z.4>,2'-t"3E2G77230E78B!20F 
7C9'iF0R 1=1 T0 LENIASi STEP 2:P0KE S850 
D+TY.VAL'"6"'-MIB«(AS.I,2)):TY=7Y+1:NEXT: 
CALL 88500: RETURN 

190 '60SUB 13D VIDE UNE PAGE DEBUTANT 
A L'ADRESSE STOCKEE DANS AD 
200 'VIDE LES 20 PAGES 
210 CLStllPRWTtl." PATIENCE ... ".-AD-AD 
-Z:F0R N=l TO 20 
220 AD=AD+Z: GOSUB 1BD 
230 NEXT 
240 PRINTtl 

250 LOCATEtl. 20-LEN(B$i/2.1:PRINT«I. ES 
240 AD=8400Q:AD1=84000:NUNPAGE=1 
270 U=89SD0:C>=CHRS( 143) :X=1 :Y=! :L0CATEI 
1.1.1;PRINTI1.NUNPASE:G0SUB 1440 
2B0 POKE U.0:CALL 89500:IF PEEK(U)=0 THE 
N 280 

290 IF PEEKIUK'40 THEN GOSUB 1190 
300 IF PEEK(U)=241 THEN G0SUE 1220 
310 IF PEEK!U)=242 THEN G0SUB 1250 
320 IF PEEK(U)=243 THEN GOBUB 1290 
330 IF PEEK1UM27 THEN G0SUE 1330 
340 IF PEEK(U)=16 THEN GOSUB 1370 
350 IF PEEK<U»=32 AND PEEK!UK=131 AND 
PEEKIUI0127 THEN G0SUE 1390 
360 IF PEEK(UI=252 THEN 400 
370 IF PEEKIUM3 THEN GOSUB 1670 
380 GOTÔ 2B0 
390 ' MENU 

400 CLS:PRINT:PRINT" MENU:" :PRIN7:PRIN 
T" 1 - NOUVELLE PAGE":PRINT:PRINT" 2 - S 
AUVEGARDE";PRINT:PRINT" 3 - CHARGEMENT": 
PRINT:PR1NT" 4 - RETOUR" :PRINT:FRINT" 5 

- IMPRES£IONS":PRINT:?RINT" 6 - EFFACE* 
NT":PRINT:PRINr 7 - MARGE GAUCHE : " :HS 
41D PSINT:PRINT' S - RETOUR ARHIERE':PRI 
NTîPRlNT' 9 - ARRET* 

420 A«=INKEY*:IF Afi'l' OR As:>'»' THEN 4 

20 

430 A=VAL(AÎI 

440 ON A GOTO 450. 490.590.650. 660.1020.1 

510.1570.1000 

450 CLS:INPUT* NUMERO DE LA PAGE 11-20) 

:'.A« 

460 IF LEN(AS)=0 OR LBUA«1>2 THES KS 

470 N=VAL(A«):IF N<1 OR N>20 THEN 45C 

480 NUMPAGE=N:AF=(ADI-ZH-(Z«N>:A1!=AF::LS 

iSOSUI 1460:G0T0 270 

490 'SAVE 

500 CLS:PRINT"CASSETTE OU DISC'UETTE " !C 

/D>" 

510 At=UPPERî(INKEYÎ):IF AÏO'C AND AJ< 

>"D" THE» 510 

520 T«=AJ 

530 GOSUB 1600 

540 PRINT:PRINT"SAUVE ! ■ : PRINT : PRÎNT" 1 

- TOUTES LES PAGES":PRINT:PRINT" 2 - UNE 
RAGE" 

550 AJ=INKEYf:IF AKT OR A»>"2" THEN 5 

50 

560 0K=1:A=VALIA$):IF A=l THEN 640 

570 GOSUB 790:0K=D 

5B0 DEP=(ADl-Z)*(Z»A):FIN=DEP*Z:GOT0 112 



590 CLS:PRINT - CASSETTE OU DISQUETTE IC/D 

) ?■ 



600 Ai=UPPERtlINKEY$>:lF AÎO'C" AND Aî< 
>"D" THEN 600 
610 T«=AJ 
620 GOSUB 1600 
630 GOTO 1070 

640 0K=0;BEP=ADl:FIN=DEP*IZ«2O):G0T0 112 
.0 

650 CLS:AF=(AD1-Z)*1Z«NUMPAGE):AD=AF:G0S 
UF. 1480:GOTO 270 
660 ' IMPRESSIONS 

670 CLS:PRINT"IMPRIMER:":FRINT:PRINT- 1 
- TOUTES LES FEUILLES I20) - :PRINT:PRINT" 

2 - UNE FEUILLE":PRINT:PRINT - 3 - PLUS I 
EURS FEUILLES" : PRINT: PRINT" 4 - MENU* 
■600 A$=INKEY$:IF ASCI" OR A*>"4" THEN 6 
B0 

690 A=VAL(AS] 

700 ON A GOTO 710. 790, 8BD, 400 
710 CLS: PRINT" CONFIRHATION tO/NI >' 
720 A«=UPPER»(INKEY1I:IF A»<i"0" AND A«< 
>"N" THEN 720 ELSE IF A«="0" THEN 740 EL 
SE IF A«="N" THEN 660 ELSE 720 
730 ' IMPRIME LES 20 FEUILLE5 
740 GOSUB 1490:FOR 1=1 T0 20:CLS:PRINT"I 
«PRESSION DE LA FEUILLE" ;I 
750 FOR J=iADl-ZH(Z«I) T0 I(AD1-Z)*(Z»I 
DtZ STEP 40:IF J=I(AD1-2H(ZHI)+Z THEN 

770 
760 AS="':F0R H=0 T0 39:AÎ=At+CHRi'p£EK( 
JtH)):NE<T:PRINT«B.AS::NEXT JiPRINTIB 
770 NEXT I:PRIN7 CHRK7);G0T0 400 
7B0 ' IMPRIME 1 FEUILLE 
790 CLS:INPUT"OUELLE FEUILLE (1-20:ENTER 
=MENU) :",At;lF AJ=" THEN 660 
B00 IF LEN(A*)<1 OR LEJMM»2 THEN 790 
B10 A=VAL(A$):IF A<1 OR A>20 THEN 790 
620 IF 0K=1 THEN RETURN 
830 CLS:PRINT" IMPRESSION DE LA FEUILLE": 
A 

840 GOSUB 1490:F0R J=IAD1-Z)*!Z<A) T0 II 
AD1-Z)*IZ*AI)H-Z STEP 40: IF J=l IAD1-Z1+IZ 
«A)I*Z THEN 860 

850 A$="":F0R H=0 T0 39:A«=A$+CH«$(PEEKi 
"J+H)):NEXT:PRINT#S.AÎ::NEXT J:PRINT#8 
at£ PRINT CHRJ(7):G0T0 660 
870 ' IMPRIME PLUSIEURS FEUILLES 
880 CLS:INPUT"NOMBRE DE FEUILLE u-20:EN 
TES=MENU) :\A«:IF A*=" T HES 660 
890 IF Lfll'(A*)<l OR LEN(A«)>2 THEN B30 
900 A=VAL(A$):IF A<1 OR A>20 THEN B30 
910 CLS:PSINT"ENTREZ LES 'NUMEROS DES':A: 
"FEUILLES".:FOR 1=1 TO A 
920 INPUr-".F(!):F'I)=INT(F!I)):IF FUI 
il OR Ftl)>20 THEN PRINT CHR$(7):G0T0 92 


930 NEXT 

940 IF 0K=1 THEN RETURN 
950 GOSUB 149O:F0fi 1=1 TO A:h'=F(I):CLS:P 
RM" IMPRESSION DE LA FEUILLE'iK 
960 FOR J=(AD1-Z)+'Z*K) TO l(ADl-Z)t(Z*K 
DtZ STEP 40:IF J=((AD1-Z!+(Z«K)I+Z THEN 

980 
970 A1="":F0R H=0 TO 39:A"S=A»*CHRSiPEEKi 
J+H)>:NEXT:PBINT*8,A$::NE«T J:PR1NTJ8 
980 NEXT I:PRINT CHR*I7):G0TO 400 
990 ' ARRET 
1D00 CLS:END 

1010 ' EFFACE UNE FEUILLE 
1020 CLB:PRINT"EFFACEMENT . CONFIRMATION 

10/NI ' 



31 



1030 AS=ÙPPER»<lNKEYi):IF »$<>"0" AND M 
O'N' THEN 1030 ELSE IF A»*"0" THEN 1040 

ELSE IF A*="N' THEN 400 
1040 CLS:INPUT'OUELLE PAGE ' <l-20:ENTER 
=MENU) :",A*!lF M=" THEN 400 
1050 IF LBUWKI OB LEN(A$)>2 THEN 1040 

ELSE A=VALIA«):IF A<1 OB A>20 THEN 1040 
1060 AG=AD:AD=(AD1-Z)*(Z»A):G0SUB 180:PR 
INT CHR«i7):AD=AG;60T0 400 
1070 ' CHARGEMENT 
1000 IF T*='C" THEN 1100 ' 
1070 LOAD NAME$:GOTO 400 
1100 !TAPE:CLS:PRINrPRESSEZ UNE TOUCHE 
S.V.P.'lCALL 4BB06:L0AD NAME* 
1110 iDISC:60T0 400 
1120 ' SAVE 

1130 IF UPPER»(T*)='C THEN 1150 
1140 CL5:SAVE NAME«.B,DEP.FIN-DEP:60T0 4 
DO 

1150 CLS:PSINT-FRAPPEZ UNE TOUCHE S.V.P. 
':CALL 1BB06 

1160 !TAPE:SAVE NAME$,B,DEP,FIN-DEP 
1170 CLS:GOTO 400 
1180 ' HAUT 

1190 IF Y=l THEN RETURN 
1200 GOSUB 1460:Y=Y-1:AD=AD-40:GOSUB 144 
0: RETURN 
121D ' BAS 
1220 IF Y=22 THEN RETURN 

1230 GOSUB 1460:Y=Y+1:AD=AD+40:60SUB 144 

0: RETURN 

1240 ' GAUCHE 

1250 IF X=l AND Y=l THEN RETURN 

1260 IF X=i AND ï)l THEN GOSUB 1460: X=40 

:Y=Y-1:AD=AD-1:G0SUB 1440:RETURN 



1270 GOSUB 1460:X=X-l:AD=AD-l:G0SUE 1440 
iRETUBN 
I2S0 ' DROITE 

1290 IF X=40 AND Y=22 THEN RETURN 
1300 IF X=40 AND Y<22 THEN GOSUB 1460:X= 
1:Y=Y+1:AD=ADH:G0SUB 1440:RETURN 
1310 GOSUB !460:X=X+l:ÂD=AD+l:50SUE 14"40 
: RETURN 
1320 ' DELETE 

1330 IF X=l AND Y=l THEN RETURN 
1340 IF X=l AND Y>1 THEN G03UE 146D:X=40 
:Y=Y-1:AD=AD-!:P0KE AD.32:G0SUB 14*0:RET 
URN 

1350 GOSUB »6D:X=X-1:AD=AD-1:P0KE AD. 32 
:GOSUE 1440:BETURN 
1360 ' CLEAR 
1370 POKE AD.32:RETURN 
13S0 'AFFICHE CARACTERE 
1390 IF X=40 AND Y=22 THEN RETURN 
1400 POKE AB.PEEKIU) 

1410 LOCATE X.YiPRINT CHR»(PEEKiU))::AD= 
AD«:X=X+!:IF X=41 THEN X=1:Y=Y*1:IF Y=2 
3 THEN X=40:AD=AD-1:Y=22 
1420 GOSUB 1440: RETURN 
1430 ' NET LE CURSEUR 
1440 LOCATE X.YiPRINT C»::RETURN 
1450 ' NET LE CARACTERE 
1460 LOCATE X,Y:PR1NT CHR«IPEEK(AD>) ::RE 
ÏUBN 

1470 ' ROUTINE AFFICHE PAGE 
14S0 TY=0:A*= , 01700321'*RI6HT«(HEX«(AF.4 
),2)tLEFTÎ(HEX«IAF,4) 1 2H'7ECD5ABB230B7B 
B120F6C9 1 :FOR 1=1 TO LEN(At) STEP 2:P0KE 
S920D*TY.VALi'l - tMID*(A$.I,2>>:TY=TY+l: 
NEXT:CALL S9200:RETURN 



1490 ' CARACTERES MINI 
1500 PR'INTK8.CHR$( 27 );"H";: RETURN 
1510 ' PAUSE DE LA MARGE 
1520 CLS:PRINT'PAUSE DE LA MARGE GAUCHE - 
:PBINT:INPUT"ENTREZ LE NOMBRE DE COLONNE 
5 i 1-50) VAS 

1530 IF Aî=" OR LEN(A<]>2 THEN 1520 ELS 
E A=«AL(Ail:IF A<1 OR A>50 THEN 1520 
1540 PRINT:PRINT'ALLUMEZ L'IMPRIMANTE ET 
PRESSEZ UNE' ïPfiINT' TOUCHE: ":CALL 6EE06 
1550 FRINTI6.CHR«(27):'r;CHR$IA):PRINT 
CHfiî(7);M6=A:GOT0 400 
1560 ' RETOUR ARRIERE iCETTE FONCTION N' 
EST PRECISE ÛUE POUR 1 SEULE PAGE). 
1570 CL5:PRINT'RET0UB ARRIERE: ALLUMEZ L 
' IMPRIMANTE" :PRINT' PUIS PRESSEZ UNE TOUC 
HE":CALL SEB06 

15B0 FOR 1 = 1 TO 26:PBINT#B.CHB$(27);'j - i 
CHR»(36)::NEXT:PRINT CHR$(7):GOT0 400 
1590 ' .ENTREE DU NON DU FICHIER 
1600 PRINTiPRINT'ENTREZ LE NOM DU FICHIE 
BMNPUT'IB LETTRES AU MAXIMUM):', A* 
1610 IF Aî=" THEN NAMEJ=''!BLOC.N0T':RET 
URN 

1620 IF LENIAtDB THEN A$=LEFT*(AS,8) 
1630 FOR 1=0 TO 47: IF INSTRIA!, CHRMDK 
>0 THEN CL3:GOT0 1600 
1640 NEXT 

1650 NAMEÎ='!'+A$:RETURN 
1660 ' ENTER (RETOUR A LA LIGNE) 
167D IF Y=22 THEN RETURN 
16B0 GOSUB 1460:AD=AD*(41-X):X=I:Y=Y*1:6 
OSOB 1440:RETURN 
1690 ' <««« FIN >»»»■ 
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MASQUE DE 
SUSE 



Christian DESBORDES 



Ce programme permet de créer un masque de saisie de type pro- 
fessionnel que vous pourrez incorporer à vos propres programmes. 



/ mm ; ww mm ; MHS 

I m m» : 451541047 î& TJt» : 13373S4S 



(Mmjmmwi»m m 



m : P0L9 

FJ88I : SKS 

TEL PO» : 454S44SM? 

m, m» ; 1*373544 



Ce masque est idéal pour une saisie type 
fichier d'adresses, mais peut être adapté 
pour faire n'importe quoi ; pour cela, il 
suffit de placer d'autres questions avec 
leurs coordonnées après la ligne 230. 
Pour faire une sortie fichier sur disquette, 
il faut continuer la suite des indices de 



chaque réponse (ne pas oublier, si plus 
de 1 1 questions, de dimensionner la 
variable B$ (nombre de questions), en 
début de programme). 
Ce masque permet d'avoir l'ensemble 
des questions sur l'écran et de mieux 
répondre à ces questions. 



QUELQUES TRUCS ET REMARQUES 

Pour annuler une réponse en cours, il faut appuyer sur la touche "DEL". La longueur 
de chaque réponse est fixée par la variable FE$. Validation de chaque réponse par 
"RETURN". 

L'ajout des caractères se fait de droite à gauche jusqu'en butée. La moindre trans- 
formation dans le module affichage réponse écran peut avoir des répercussions inat- 
tendues. 

Attention aussi de ne pas faire de BREAK au milieu du programme avec un arrêt en 
inverse vidéo car il repartirait- mal. En effet, la particularité parfois gênante de l'inver- 
sion vidéo AMSTRAD est de jouer en bascule, et cela dépend dans quel mode il est 
arrêté. 



10 REM 


20 REM IMBOUE DE SAISIE 


3D REM 


40 REM (C) D 4 C DESE0RDE3.C S CPC 


50 REM VERSION (I! le 30 MAI 1966 


60 SEM 




BQ CLEAR 


90 INVERSE«=CKR«i24> 


100 MODE 2 


110 BORDER 26:INK D.26:INK 1.0 




130 REM AFFICHAGE DU MASQUE 


140 REM 



:603uE 



15D FLAS=0 

160 L0CATE l,2:PRWN0M :' 
170 L0CATE 20,2:?RINrPREN0N : ' 
180 L0CATE 1.4:PRINT'TEL PERSO : 
190 L0CATE 2b.4;PRINT'TEL TRAV 
200 X=6:Y=2:T=l:FEt=' 
330:B.«iI)=B«:LOCATE X+1.Y:PRINT Bîlll 
210 X=2S:Y=2;7=2:FE«=' - :G0SUB 

330:B«(2l=f.«:L0CATE X+1.Y:PRINÏ B«i2) 
220 X=13:Y=4ïî=3:fE*=' ':G05UB 

330:B*i3i=B«:LOCATE X+1.Y:PRIMT BSi3 
230 X=37:Y=4:T=4:FE$=" ':G0S 

UB 330:BSI4)=B»:L0CATE X+1.Y:RRINT 3«(41 
240 L0CATE S.lOîPRINT'CORRECTION 101UI/I 
N10N '::PRINT INVERSE»:' ': INVERSE» 
250 R».UPPER*(INKEY»):IF Rs=" GOTO 250 
260 IF ASC(R»!=13 THENLOCATE 5.10~:PRINT 
CHR*(l8i:FlA6=l:60TO 200 
270 IF 8S=-N' THEN FOR 1= 1 ICI 4:»EAD A» 
:L0CATE 3, 15*1 SPRINT »:' : ':E»II):NEXT 
280 IF R$='N" 60T0 250 
290 6010 250 

300 REM 

310 REM AFFICHAGE REPONSE ECRAN 

320 REM -_ 

330 N=0:X1=X:B»=":PRIN T INVERStî 
340 Z=X:X=(X+LEN(FE»)>-1:REM FREFARE LA 
R0SITI0N DE 'DEPART DES CARACTERES 
35C LOCATE 7,Y:PRINT FE»:REM AFFICHE LA 
FENETRE EU INVERSE VIDEO 
360 IF Fi_AG=l THEN L0CATE ï-U3MÎ»ITiM 
.i:FP!NÏ B«(Ti 

370 C*=LRFERÎ(INKEYS1:IF Cî=" GOTO 370 
390 C=ASC(CÎ) 

390 IF C=127 THEN X=X1:FRINT ÏNVERSEï:GO 
IL 330: REM ANNULE SI ERREUR DANS LA SEPO 
N3E (TOUCHE. DEL) et reir.e* ie X aer.s sa p 
osition oe deoart. 

400 IF C=I3 GOTO 47D:REM SORTIE SI TERMI 
NE 

410 IF N=LEN(FE*1 GOTO 370:REM ARRETE L' 
AJOUT DE CARACTERE DEFINI PAR LA FENETRE 
420 B»=B«+«:REM CONCATENATION DES CARAC 
TERES POUR FORMER LA REPONSE FINALE 
430 IF FLAG=1 AND N=0 THEN LOCATE Z.Y:PR 
INT FE* 

440 LOCATE X.YiPRINT B«:X=X-1:REM AFFICH 
E LA REPONSE EN COURS ET PREPARE L'EMPLA 
CEMENT DU MOT C0NCATENE SUIVANT 
450 N«N+1:REM COMPTEUR DU NOMBRE DE CARA 
CTESES DEFINI PAR LA FENETRE FE« 
460 GOTO 370 

470 IF FLAG=1 THEN IF N=0 THEN E4=BïiT): 
X=X-LENiB») 

4B0 PRINT INVERSE»:L0CATE Z.Y:PRINT FEJ: 
RETURN 
498 DATA NOM. PRENOM. TEL FERSO.TEL TRAV 
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bon de commande 



REPORT 



ABONNE!* 



CPC Revue des Utilisateurs d'Amstrad/Schneider 
Attention : votre abonnement débutera avec le 
numéro suivant te mois d'envoi de votre chèque. 



□ Abonnement 1 an à 1 1 numéros 180 F 
D Abonnement 6 numéros 104 F 

□ Abonnement d'essai 55 F 
D Supplément pour tarif avion 120 F 



CASSETTES 



1 cassette représente 1 numéro 

G abonné 45 F 

D non abonné 55 F 

D abonnement cassettes (1 1 n°) 450 F 



DISQUETTES 



1 disquette contient deux numéros de CPC 
sauf les Hors-Série 1 et 2. 

□ abonné 110 F 

□ non abonné 140 F 

D abonnement disquettes (6) 600 F 



RELIURE CPC 



Pour conserver vos revues intactes. 

D abonné 51 F 

D non abonné 74 F 

TOTAL 



ANCIENS NUMÉROS 



□ 5,6,8,9,10,11,12,13 19 F 

□ 7 25 F 

□ Hors Série n° 1 avec cassette 42 F 

Entourez le (ou les) numérolsl commandé(s). 

REVUES MÉGAHERTZ 



□ MHZ N° 3Q avec programme 
sur QRA Locator 

□ MHZ N° 33 avec décodage 
des radiotélétypes 

□ MHZ N° 41 avec mail-box 
sur AMSTRAD 



23 F 



23 F 



18 F 



LIVRES 



n Mieux programmer sur AMSTRAD 

Michel ARCHAMBAULT 85 F 

D Communiquez avec AMSTRAD 

D. BONOMO - E. DUTERTRE 90 F 

D Jouez avec AMSTRAD 
Kerloch 48 F 

□ Programmes utilitaires pour AMSTRAD 

85 F 



Michel ARCHAMBAUL T 

D L'Univers des PCW 

Patrick LEON 
D Cassette 

Communiquez avec AMSTRAD 
D Disquette 
Communiquez avec AMSTRAD 

PORT : 10 % en plus. 
TOTAL GENERAL 



119F 



190 F 



250 F 



Nom Prénom 

Adresse : 

Code Postal Ville . 

Date Signature 

Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. Retournez lefsj bulletinls) ou une photocopie à : 
Editions SORACOM La Haie de Pan -35170 BRUZ. 



LE LECTEUR 5" 1/4 

pour AMSTRAD 

500 K * à 1 M OCTETS à partir d« 

1593 F TTC 

J' ^ LE JASMIN AM 5 E 

le 2 e lecteur double têtes, double ou quadruble densité 

indispensable pour votre AMSTRAD 

CPC 464 - 664 - 6128 et PCW 8256/8512 

Ne payez plus vos disquettes 3" 
à 60 F. on trouve des disquettes 
5" 1/4 à moins de 7 F 

Accéder à toute la bibliothèque CP/M éditée sur 5" 1A 
grâce aux utilitaires disponibles chez « WILD WEST » 

_______ 84760 St-Martin de la Brasque. Tél. : 90.77.61.36 

JASMIN AM-5D, le lecteur double têtes Puissant mais Econome 




lus besoin de retourner la disquette. La sélection de face se fait par inverseur avec indicateur lumineux 
ecteur5" 1/4JASMIN AM5D-500 K : double tètes, double densité 360 K formatté, entiè- 
ment compatible AMSDOS,CP/M2.2 et CP/M + , livré avec disauette utilitaire de formattage et de duplica- 

in de disquette 1599,00 F TTC 

ecteur 5" 1/4 JASMIN AM5D+ - 1 M : doube têtes, quadruble densité, 720 K for- 
mé, entièrement compatible AMSDOS et CP/M ., livré avec cisquettc utilitaire de duplication, format- 

ge et utilisation en 80 pistes 1 799,00 F TTC 

able de liaison pour CPC 6128/664 155,00 F TTC 

■daptateur AD 12 - VDC : pour l'utilisation avec aesmofuteurs sans some 12 V. 60,00 F TTC 
it de liaison du JASMIN AM5D+ : avec le PCW 8256/8512. . .250,00 F TTC 
asmin- Booster : adaptateur à rajouter derrière i'AM5D ou AM5D + leur permettant d'être utilisé en maître ou esclave, 

pour le lecteur 1 M de se comporter en 500K. Disponible* en octobre : Prix indicatif 350,00 F TTC 

'isquettes 5" 1 /4, l'unité 7,00 F TTC 

nprimante spéciale AMSTRAD AM PRINTER : Silencieuse -50 CPS- Qualité cour- 
ir ■ 132 colonnes en contractées 1995,00 F TTC 

:able CENTRONICS pour AMSTRAD 175,00 F TTC 

Les prix en boutique comprennent le port. 
AMSTRAD - CPC 464 - CPC 664 - CPC 6128 et PCW 8256/8512 ■ AMSDOS sont des marques déposées d' AMSTRAD. JASMIN AM-5D 
500 K et 1 M octets, non formattés 




t une marque déposée de T.R.A.N, sari. CP/M est une marque déposée de Digital Research 
Tous nos prix sont en fonction de nos stocks au 1 w Septembre 1986 



ON DE COMMANDE à T.R.A.N. sari - 53, impasse Biériot 




NOUVEAU PAYEZ PAR CARTE BLEUE / INTERBANCAIRE 


83130 LA GARDE - Tél. : 94.21.19.68 


carteŒuej [ ( 




Crédit possible. Nous téléphoner 


^_T_-ftf Dfl-d'olwmriim / .S,-*™- 








Veuillez m'envoyerd'URGENCE 


Désignation 


Quantité 


Px unit. TTC 


Mt.TTC 












































Ci-joint un chèque total : 



=orfait de Port express en France pour achat de plus de 500 F TTC ; 100,00 F TTC - Forfait de Port en France pour achat de moins 500 F : 40,00 F TTC 



. iin tv\ _ TTP 



fltro W LflipiQK 



1938. 

Tandis que la situation politique s'aggrave 

en Europe, au Havre le plus grand et le plus 

luxueux paquebot du monde appareille pt 

New-York. A son bord,-une clientèle 

fortunée et insouciante... et, pourtant 

un drame va se jouer pendant la travers»" 

Vous vous trouverez ainsi projeté 

au coeur de la plus incroyable histoire 

d'espionnage qui permit aux alj : ~~ 

de gagner la seconde guern 

5 ans plus tard. 




Un logiciel imaginé et réalisé par Bertrand BROCARD 
avec Marie-Anne ALISON. 



